diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-09 21:36:58 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-09 21:36:58 +0000 |
| commit | 8068f8fb8571bdb471f5f6ae0c96570a053c869b (patch) | |
| tree | 35fa7bdc028f17b1976a357bc6a4cd0b5b695413 /lib/Switch.pm | |
| parent | 990e18f721a7d2ee48d50ea4262bd5d109e9f89c (diff) | |
| download | perl-8068f8fb8571bdb471f5f6ae0c96570a053c869b.tar.gz | |
Suppress a C< $DB::single = 1 > from Switch.pm, as noticed
by Jan Dubois.
p4raw-id: //depot/perl@21874
Diffstat (limited to 'lib/Switch.pm')
| -rw-r--r-- | lib/Switch.pm | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lib/Switch.pm b/lib/Switch.pm index 9c4abe33fd..f709d9d7ba 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) |