[libdata-swap-perl] 01/06: Add patch to fix failures under perl 5.26, taken from CPAN RT.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libdata-swap-perl.

commit bc21bd33bebf32017680604b1166191014da9a16
Author: gregor herrmann <gregoa at debian.org>
Date:   Mon Jun 19 22:55:39 2017 +0200

    Add patch to fix failures under perl 5.26, taken from CPAN RT.
    
    Thanks: Father Chrysostomos <sprout at cpan.org>
    Closes: #865025
---
 debian/patches/perl-5.26.patch | 24 ++++++++++++++++++++++++
 debian/patches/series          |  1 +
 2 files changed, 25 insertions(+)

diff --git a/debian/patches/perl-5.26.patch b/debian/patches/perl-5.26.patch
new file mode 100644
index 0000000..e516b5b
--- /dev/null
+++ b/debian/patches/perl-5.26.patch
@@ -0,0 +1,24 @@
+Description: fix failure under perl 5.26
+ Ever since perl’s lvalue subs were introduced, perl itself has been
+ checking the OPf_MOD flag on the entersub op, not the OPf_REF flag, which
+ was ignored. I needed an extra flag on entersub to fix a bug (the private
+ flags are full), so I thought the OPf_REF flag was free game. I do think it
+ is appropriate for this module to check the same flag for lvalue context
+ that perl itself has been checking all this time.
+Origin: CPAN RT #117618
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=117618
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=117618
+Author: Father Chrysostomos <sprout at cpan.org>
+Last-Update: 2017-06-19
+
+--- a/Swap.xs
++++ b/Swap.xs
+@@ -135,7 +135,7 @@
+ 	I32 sref;
+ 	SV *sv;
+     PPCODE:
+-	sref = (GIMME == G_SCALAR) && (PL_op->op_flags & OPf_REF);
++	sref = (GIMME == G_SCALAR) && (PL_op->op_flags & OPf_MOD);
+ 	for (i = 0; i < items; i++) {
+ 		if (!SvROK(ST(i))) {
+ 			STRLEN z;
diff --git a/debian/patches/series b/debian/patches/series
index 6c5a743..28a8c0b 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 werror-forat-security.patch
+perl-5.26.patch

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