[libperl6-export-attrs-perl] 01/02: Add patch 1001 to fix regression in exporting subroutines. Closes: Bug#805105. Thanks to Miko Tyni.

[Jonas Smedegaard]

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

js pushed a commit to branch master
in repository libperl6-export-attrs-perl.

commit 0cc22f23e315a40dd3be9870fa4ed91c1435b583
Author: Jonas Smedegaard <dr at jones.dk>
Date:   Sun Nov 22 13:52:00 2015 +0100

    Add patch 1001 to fix regression in exporting subroutines. Closes: Bug#805105. Thanks to Miko Tyni.
---
 .../1001_Fix_subroutine_export_regression.patch    | 34 ++++++++++++++++++++++
 debian/patches/README                              |  3 ++
 debian/patches/series                              |  1 +
 3 files changed, 38 insertions(+)

diff --git a/debian/patches/1001_Fix_subroutine_export_regression.patch b/debian/patches/1001_Fix_subroutine_export_regression.patch
new file mode 100644
index 0000000..d4f45e0
--- /dev/null
+++ b/debian/patches/1001_Fix_subroutine_export_regression.patch
@@ -0,0 +1,34 @@
+Description: Fix a 0.000004 regression in exporting subroutines
+ While at it, add a test case catching the regression.
+Origin: vendor, https://rt.cpan.org/Ticket/Attachment/1562228/833791/0001-Fix-a-0.000004-regression-in-exporting-subroutines.patch
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=107627
+Bug-Debian: http://bugs.debian.org/805105
+Author: Niko Tyni <ntyni at debian.org>
+Last-Update: 2015-11-22
+
+--- a/lib/Perl6/Export/Attrs.pm
++++ b/lib/Perl6/Export/Attrs.pm
+@@ -141,7 +141,7 @@
+     REQUEST:
+     while ($argno < @_) {
+         my $request = $_[$argno];
+-        if (my ($sub_name) = $request =~ m/\A & ($IDENT) (?:\(\))? \z/xms) {
++        if (my ($sub_name) = $request =~ m/\A &? ($IDENT) (?:\(\))? \z/xms) {
+             if (exists $request{$sub_name}) {
+                 splice @_, $argno, 1;
+                 next REQUEST;
+--- /dev/null
++++ b/t/01export.t
+@@ -0,0 +1,12 @@
++use Test::More tests => 1;
++
++package Lib;
++use Perl6::Export::Attrs;
++sub doit :Export { "Do it!"; }
++1;
++
++package main;
++import Lib qw(doit);
++
++is(doit(), "Do it!", "function exported as expected");
++
diff --git a/debian/patches/README b/debian/patches/README
new file mode 100644
index 0000000..80c1584
--- /dev/null
+++ b/debian/patches/README
@@ -0,0 +1,3 @@
+0xxx: Grabbed from upstream development.
+1xxx: Possibly relevant for upstream adoption.
+2xxx: Only relevant for official Debian release.
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..a5ad781
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+1001_Fix_subroutine_export_regression.patch

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