.gitignore

@@ -1 +1,2 @@
-SOURCES/Switch-2.17.tar.gz
+/Switch-2.16.tar.gz
+/Switch-2.17.tar.gz

.perl-Switch.metadata

@@ -1 +0,0 @@
-410fc346dc96347bdb04dc7594a1ae19e0bda834 SOURCES/Switch-2.17.tar.gz

Switch-2.16-perl514.patch

@@ -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;
+ 		}

sources

@@ -0,0 +1 @@
+SHA512 (Switch-2.17.tar.gz) = 8faf3585c7b8a0552c7de7fad7b0ab89a8c3f3d55cb090d5656ae0925f8d328d9b466bd5bcbca76eaeaf56eceab11654137ba8a9bb03f79b91f00338ab2483ab