[arch-commits] Commit in perl-switch/trunk (switch.diff)

[Sergej Pupykin]

    Date: Thursday, May 15, 2014 @ 16:57:10
  Author: spupykin
Revision: 111254

Deleted:
  perl-switch/trunk/switch.diff

-------------+
 switch.diff |   11 -----------
 1 file changed, 11 deletions(-)

Deleted: switch.diff
===================================================================
--- switch.diff	2014-05-15 14:56:13 UTC (rev 111253)
+++ switch.diff	2014-05-15 14:57:10 UTC (rev 111254)
@@ -1,11 +0,0 @@
---- 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;
- 		}