diff options
Diffstat (limited to 'perl/perl-switch/switch.diff')
| -rw-r--r-- | perl/perl-switch/switch.diff | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/perl/perl-switch/switch.diff b/perl/perl-switch/switch.diff new file mode 100644 index 0000000000..90e96cbb7d --- /dev/null +++ b/perl/perl-switch/switch.diff @@ -0,0 +1,11 @@ +--- Switch-2.16-wjgfvU/Switch.pm 2009-10-23 00:52:51.000000000 -0700 ++++ Switch-2.16-wjgfvUcopy/Switch.pm 2010-08-15 17:41:38.000000000 -0700 +@@ -146,7 +146,7 @@ sub filter_blocks + die "Bad $keyword statement (problem in the code block?) near $Switch::file line ", line(substr($source,0, pos $source), $line), "\n"; + }; + my $code = filter_blocks(substr($source,$pos[0],$pos[4]-$pos[0]),line(substr($source,0,$pos[0]),$line)); +- $code =~ s/{/{ local \$::_S_W_I_T_C_H; Switch::switch $arg;/; ++ $code =~ s/{/{ local \$::_S_W_I_T_C_H; Switch::switch($arg);/; + $text .= $code . 'continue {last}'; + next component; + } |