From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 9 Dec 2003 21:36:58 +0000 (+0000)
Subject: Suppress a C< $DB::single = 1 > from Switch.pm, as noticed
X-Git-Tag: accepted/trunk/20130322.191538~22622
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=8068f8fb8571bdb471f5f6ae0c96570a053c869b;p=platform%2Fupstream%2Fperl.git

Suppress a C< $DB::single = 1 > from Switch.pm, as noticed
by Jan Dubois.

p4raw-id: //depot/perl@21874
---

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)