Blame SOURCES/Switch-2.16-perl514.patch
|
 |
ab70b2 |
--- Switch-2.16-wjgfvU/Switch.pm 2009-10-23 00:52:51.000000000 -0700
|
|
|
ab70b2 |
+++ Switch-2.16-wjgfvUcopy/Switch.pm 2010-08-15 17:41:38.000000000 -0700
|
|
|
ab70b2 |
@@ -146,7 +146,7 @@ sub filter_blocks
|
|
|
ab70b2 |
die "Bad $keyword statement (problem in the code block?) near $Switch::file line ", line(substr($source,0, pos $source), $line), "\n";
|
|
|
ab70b2 |
};
|
|
|
ab70b2 |
my $code = filter_blocks(substr($source,$pos[0],$pos[4]-$pos[0]),line(substr($source,0,$pos[0]),$line));
|
|
|
ab70b2 |
- $code =~ s/{/{ local \$::_S_W_I_T_C_H; Switch::switch $arg;/;
|
|
|
ab70b2 |
+ $code =~ s/{/{ local \$::_S_W_I_T_C_H; Switch::switch($arg);/;
|
|
|
ab70b2 |
$text .= $code . 'continue {last}';
|
|
|
ab70b2 |
next component;
|
|
|
ab70b2 |
}
|