svn commit: r363704 - in head/lang/p5-Switch: . files

[Anton Berezin]

Author: tobez
Date: Fri Aug  1 12:51:23 2014
New Revision: 363704
URL: http://svnweb.freebsd.org/changeset/ports/363704
QAT: https://qat.redports.org/buildarchive/r363704/

Log:
  Update to 2.17 and
  apply a patch to fix interaction with modern Filter.pm.
  
  PR:			191730
  Submitted by:	Ting-Wei Lan

Added:
  head/lang/p5-Switch/files/
  head/lang/p5-Switch/files/patch-Switch.pm   (contents, props changed)
Modified:
  head/lang/p5-Switch/Makefile
  head/lang/p5-Switch/distinfo

Modified: head/lang/p5-Switch/Makefile
==============================================================================
--- head/lang/p5-Switch/Makefile	Fri Aug  1 12:35:21 2014	(r363703)
+++ head/lang/p5-Switch/Makefile	Fri Aug  1 12:51:23 2014	(r363704)
@@ -2,10 +2,10 @@
 # $FreeBSD$
 
 PORTNAME=	Switch
-PORTVERSION=	2.16
+PORTVERSION=	2.17
 CATEGORIES=	lang perl5
 MASTER_SITES=	CPAN
-MASTER_SITE_SUBDIR=	CPAN:RGARCIA
+MASTER_SITE_SUBDIR=	CPAN:CHORNY
 PKGNAMEPREFIX=	p5-
 
 MAINTAINER=	tobez at FreeBSD.org

Modified: head/lang/p5-Switch/distinfo
==============================================================================
--- head/lang/p5-Switch/distinfo	Fri Aug  1 12:35:21 2014	(r363703)
+++ head/lang/p5-Switch/distinfo	Fri Aug  1 12:51:23 2014	(r363704)
@@ -1,2 +1,2 @@
-SHA256 (Switch-2.16.tar.gz) = 308c8f27f295906778186f14c6291923905730b46ba879c3a68fff81c37df9d8
-SIZE (Switch-2.16.tar.gz) = 13185
+SHA256 (Switch-2.17.tar.gz) = 31354975140fe6235ac130a109496491ad33dd42f9c62189e23f49f75f936d75
+SIZE (Switch-2.17.tar.gz) = 14490

Added: head/lang/p5-Switch/files/patch-Switch.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/lang/p5-Switch/files/patch-Switch.pm	Fri Aug  1 12:51:23 2014	(r363704)
@@ -0,0 +1,15 @@
+--- Switch.pm	2014-08-01 14:47:54.000000000 +0200
++++ Switch.pm	2014-08-01 14:47:57.000000000 +0200
+@@ -25,9 +25,11 @@ my ($Perl5, $Perl6) = (0,0);
+ 
+ sub import
+ {
++	my ($class) = @_;
++	my $self = bless {}, $class;
+ 	$fallthrough = grep /\bfallthrough\b/, @_;
+ 	$offset = (caller)[2]+1;
+-	filter_add({}) unless @_>1 && $_[1] eq 'noimport';
++	filter_add($self) unless @_>1 && $_[1] eq 'noimport';
+ 	my $pkg = caller;
+ 	no strict 'refs';
+ 	for ( qw( on_defined on_exists ) )