X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSwitch.pm;h=2a3093c359ae1a191f03cb4f85d0d862e0168cfb;hb=3961318eaa1a2f6d3cdb9971bd0f3734b30294af;hp=1b84371a1041936fcc800cf03d4b1c2a2c894697;hpb=b32b0a5d97553a28be45508a0e60a97b2bf53203;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Switch.pm b/lib/Switch.pm
index 1b84371..2a3093c 100644
--- a/lib/Switch.pm
+++ b/lib/Switch.pm
@@ -4,7 +4,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = '2.01';
+$VERSION = '2.02';
 
 
 # LOAD FILTERING MODULE...
@@ -18,10 +18,10 @@ $::_S_W_I_T_C_H = sub { croak "case statement not in switch block" };
 
 my $offset;
 my $fallthrough;
-my $nextlabel = 1;
 
 sub import
 {
+	$DB::single = 1;
 	$fallthrough = grep /\bfallthrough\b/, @_;
 	$offset = (caller)[2]+1;
 	filter_add({}) unless @_>1 && $_[1] ne '__';
@@ -80,7 +80,7 @@ sub filter_blocks
 	my $text = "";
 	component: while (pos $source < length $source)
 	{
-		if ($source =~ m/(\G\s*use\s+switch\b)/gc)
+		if ($source =~ m/(\G\s*use\s+Switch\b)/gc)
 		{
 			$text .= q{use Switch 'noimport'};
 			next component;
@@ -88,20 +88,20 @@ sub filter_blocks
 		my @pos = Text::Balanced::_match_quotelike(\$source,qr/\s*/,1,1);
 		if (defined $pos[0])
 		{
-			$text .= substr($source,$pos[2],$pos[18]-$pos[2]);
+			$text .= " " . substr($source,$pos[2],$pos[18]-$pos[2]);
 			next component;
 		}
 		@pos = Text::Balanced::_match_variable(\$source,qr/\s*/);
 		if (defined $pos[0])
 		{
-			$text .= substr($source,$pos[0],$pos[4]-$pos[0]);
+			$text .= " " . substr($source,$pos[0],$pos[4]-$pos[0]);
 			next component;
 		}
 
 		if ($source =~ m/\G(\n*)(\s*)switch\b(?=\s*[(])/gc)
 		{
 			$text .= $1.$2.'S_W_I_T_C_H: while (1) ';
-			@pos = Text::Balanced::_match_codeblock(\$source,qr/\s*/,qr/\(/,qr/\)/,qr/\{/,qr/\}/,undef) 
+			@pos = Text::Balanced::_match_codeblock(\$source,qr/\s*/,qr/\(/,qr/\)/,qr/[[{(<]/,qr/[]})>]/,undef) 
 			or do {
 				die "Bad switch statement (problem in the parentheses?) near $Switch::file line ", line(substr($source,0,pos $source),$line), "\n";
 			};
@@ -454,8 +454,8 @@ Switch - A switch statement for Perl
 
 =head1 VERSION
 
-This document describes version 2.01 of Switch,
-released January  9, 2001.
+This document describes version 2.02 of Switch,
+released April 26, 2001.
 
 =head1 SYNOPSIS