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 (file)
--- 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)