[libswitch-perl] 01/01: Import patch from FreeBSD which fixes errors with recent Filter.pm versions

[Axel Beckert]

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to branch master
in repository libswitch-perl.

commit ab09652edcf5dd9b46d7933dd0e8f14e7345c1ff
Author: Axel Beckert <abe at deuxchevaux.org>
Date:   Tue Sep 23 18:40:43 2014 +0200

    Import patch from FreeBSD which fixes errors with recent Filter.pm versions
    
    Closes: #762598
---
 debian/changelog                            |  5 +++++
 debian/patches/Switch.pm-vs-Filter.pm.patch | 20 ++++++++++++++++++++
 debian/patches/series                       |  1 +
 3 files changed, 26 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index e61f383..313e772 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,7 +1,12 @@
 libswitch-perl (2.17-2) UNRELEASED; urgency=medium
 
+  [ Salvatore Bonaccorso ]
   * Update Vcs-Browser URL to cgit web frontend
 
+  [ Axel Beckert ]
+  * Import patch from FreeBSD which fixes errors with recent Filter.pm
+    versions. (Closes: #762598)
+
  -- Salvatore Bonaccorso <carnil at debian.org>  Sat, 16 Aug 2014 09:35:05 +0200
 
 libswitch-perl (2.17-1) unstable; urgency=low
diff --git a/debian/patches/Switch.pm-vs-Filter.pm.patch b/debian/patches/Switch.pm-vs-Filter.pm.patch
new file mode 100644
index 0000000..d50fc46
--- /dev/null
+++ b/debian/patches/Switch.pm-vs-Filter.pm.patch
@@ -0,0 +1,20 @@
+Origin: http://svnweb.freebsd.org/ports/head/lang/p5-Switch/files/patch-Switch.pm
+Author: Anton Berezin <tobez at freebsd.org>
+Bug-Debian: http://bugs.debian.org/762598
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=96753
+
+--- a/Switch.pm	2014-08-01 14:47:54.000000000 +0200
++++ b/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 ) )
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..00d3db7
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+Switch.pm-vs-Filter.pm.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libswitch-perl.git