From 8068f8fb8571bdb471f5f6ae0c96570a053c869b Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 9 Dec 2003 21:36:58 +0000
Subject: [PATCH] Suppress a C< $DB::single = 1 > from Switch.pm, as noticed by
 Jan Dubois.

p4raw-id: //depot/perl@21874
---
 lib/Switch.pm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/lib/Switch.pm b/lib/Switch.pm
index 9c4abe3..f709d9d 100644
--- a/lib/Switch.pm
+++ b/lib/Switch.pm
@@ -90,7 +90,6 @@ sub filter_blocks
 			   || $Perl6 && $source =~ /when|given/;
 	pos $source = 0;
 	my $text = "";
-	$DB::single = 1;
 	component: while (pos $source < length $source)
 	{
 		if ($source =~ m/(\G\s*use\s+Switch\b)/gc)
-- 
2.7.4