4 files changed, 51 insertions, 0 deletions
diff --git a/lang/p5-Switch/DESCR b/lang/p5-Switch/DESCR
new file mode 100644
index 00000000000..92d13b3e5a5
--- /dev/null
+++ b/lang/p5-Switch/DESCR
@@ -0,0 +1,6 @@
+Switch.pm provides the syntax and semantics for an explicit case mechanism for
+Perl.  The syntax is minimal, introducing only the keywords C<switch> and
+C<case> and conforming to the general pattern of existing Perl control
+structures.  The semantics are particularly rich, allowing any one (or more) of
+early 30 forms of matching to be used when comparing a switch value with its
+various cases.
diff --git a/lang/p5-Switch/Makefile b/lang/p5-Switch/Makefile
new file mode 100644
index 00000000000..cdcefdafd0e
--- /dev/null
+++ b/lang/p5-Switch/Makefile
@@ -0,0 +1,23 @@
+# $NetBSD: Makefile,v 1.1.1.1 2011/10/28 09:14:41 obache Exp $
+#
+
+DISTNAME=	Switch-2.16
+PKGNAME=	p5-${DISTNAME}
+CATEGORIES=	lang perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN:=../../authors/id/R/RG/RGARCIA/}
+
+MAINTAINER=	pkgsrc-users@NetBSD.org
+HOMEPAGE=	http://search.cpan.org/dist/Switch/
+COMMENT=	Switch statement for Perl
+LICENSE=	${PERL5_LICENSE}
+
+PKG_DESTDIR_SUPPORT=	user-destdir
+
+DEPENDS+=	p5-Text-Balanced-[0-9]*:../../textproc/p5-Text-Balanced
+DEPENDS+=	p5-Filter-[0-9]*:../../textproc/p5-Filter
+
+PERL5_PACKLIST=	auto/Switch/.packlist
+USE_LANGUAGES=	# none
+
+.include "../../lang/perl5/module.mk"
+.include "../../mk/bsd.pkg.mk"
diff --git a/lang/p5-Switch/distinfo b/lang/p5-Switch/distinfo
new file mode 100644
index 00000000000..e8415a380c9
--- /dev/null
+++ b/lang/p5-Switch/distinfo
@@ -0,0 +1,6 @@
+$NetBSD: distinfo,v 1.1.1.1 2011/10/28 09:14:41 obache Exp $
+
+SHA1 (Switch-2.16.tar.gz) = 2737a2b5e64a9d715528fa50a8d967710106220e
+RMD160 (Switch-2.16.tar.gz) = 0b93b8ecea9d2e83d757e95fb4056d6b706b1f60
+Size (Switch-2.16.tar.gz) = 13185 bytes
+SHA1 (patch-Switch.pm) = f1bde131fcb5ef85e4f888f7fde7f6b0417318d6
diff --git a/lang/p5-Switch/patches/patch-Switch.pm b/lang/p5-Switch/patches/patch-Switch.pm
new file mode 100644
index 00000000000..0dc00a31136
--- /dev/null
+++ b/lang/p5-Switch/patches/patch-Switch.pm
@@ -0,0 +1,16 @@
+$NetBSD: patch-Switch.pm,v 1.1.1.1 2011/10/28 09:14:41 obache Exp $
+
+* misuses the (;$) prototype
+  https://rt.cpan.org/Public/Bug/Display.html?id=60380
+
+--- Switch.pm.orig	2009-10-23 07:52:51.000000000 +0000
++++ Switch.pm
+@@ -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;
+ 		}