[perl-Switch] initial import

[Tom Callaway]

commit 9cb59e7836357ae821870ec80005f3df76814c05
Author: Tom "spot" Callaway <tcallawa at redhat.com>
Date:   Thu Aug 11 15:28:23 2011 -0400

    initial import

 .gitignore                |    1 +
 Switch-2.16-perl514.patch |   11 ++++++++++
 perl-Switch.spec          |   48 +++++++++++++++++++++++++++++++++++++++++++++
 sources                   |    1 +
 4 files changed, 61 insertions(+), 0 deletions(-)
---
diff --git a/.gitignore b/.gitignore
index e69de29..e4dd551 100644
--- a/.gitignore
+++ b/.gitignore
@@ -0,0 +1 @@
+/Switch-2.16.tar.gz
diff --git a/Switch-2.16-perl514.patch b/Switch-2.16-perl514.patch
new file mode 100644
index 0000000..90e96cb
--- /dev/null
+++ b/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;
+ 		}
diff --git a/perl-Switch.spec b/perl-Switch.spec
new file mode 100644
index 0000000..83ee7b4
--- /dev/null
+++ b/perl-Switch.spec
@@ -0,0 +1,48 @@
+Name:		perl-Switch
+Version:	2.16
+Release:	1%{?dist}
+Summary:	A switch statement for Perl
+Group:		Development/Libraries
+License:	GPL+ or Artistic
+URL:		http://search.cpan.org/dist/Switch/
+Source0:	http://search.cpan.org/CPAN/authors/id/R/RG/RGARCIA/Switch-%{version}.tar.gz
+# From OpenSUSE, fix test failures with perl 5.14
+Patch0:		Switch-2.16-perl514.patch
+BuildRequires:	perl(ExtUtils::MakeMaker)
+Requires:	perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+BuildArch:	noarch
+
+%description
+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 
+nearly 30 forms of matching to be used when comparing a switch value with its 
+various cases.
+
+%prep
+%setup -q -n Switch-%{version}
+%patch0 -p1 -b .514
+
+%build
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+make pure_install PERL_INSTALL_ROOT=%{buildroot}
+find %{buildroot} -type f -name .packlist -exec rm -f {} ';'
+find %{buildroot} -type f -name '*.bs' -a -size 0 -exec rm -f {} ';'
+find %{buildroot} -depth -type d -exec rmdir {} 2>/dev/null ';'
+chmod -R u+w %{buildroot}/*
+
+%check
+make test
+
+%files
+%doc Changes README
+%{perl_vendorlib}/Switch.pm
+%{_mandir}/man3/*.3*
+
+%changelog
+* Wed Aug 10 2011 Tom Callaway <spot at fedoraproject.org> - 2.16-1
+- initial package
diff --git a/sources b/sources
index e69de29..83895e4 100644
--- a/sources
+++ b/sources
@@ -0,0 +1 @@
+bf75dc7f171b4718a2118c3d6cbe6013  Switch-2.16.tar.gz