This is an automated email from the git hooks/post-receive script.
ntyni pushed a commit to branch master
in repository libb-hooks-op-check-entersubforcv-perl.
commit 100ab3b736d5223ef8ef5f949bbb5c9b747f7d46
Author: Niko Tyni <nt...@debian.org>
Date: Sun Dec 27 11:51:55 2015 +0200
Fix for Perl 5.22 compatibility
Closes: #787499
---
.../patches/0001-Perl-5.21.4-compatibility.patch | 34 ++++++++++++++++++++++
debian/patches/series | 1 +
2 files changed, 35 insertions(+)
diff --git a/debian/patches/0001-Perl-5.21.4-compatibility.patch
b/debian/patches/0001-Perl-5.21.4-compatibility.patch
new file mode 100644
index 0000000..0880cb1
--- /dev/null
+++ b/debian/patches/0001-Perl-5.21.4-compatibility.patch
@@ -0,0 +1,34 @@
+From 6c62adb1722a96370dbe8d294d36f9382b0788fa Mon Sep 17 00:00:00 2001
+From: Niko Tyni <nt...@debian.org>
+Date: Sun, 27 Dec 2015 11:47:24 +0200
+Subject: [PATCH] Perl >= 5.21.4 compatibility
+
+This fixes test failures since perl commit v5.21.3-654-ga65cc14 .
+
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=94945
+Bug-Debian: https://bugs.debian.org/787499
+---
+ EntersubForCV.xs | 7 ++++++-
+ 1 file changed, 6 insertions(+), 1 deletion(-)
+
+diff --git a/EntersubForCV.xs b/EntersubForCV.xs
+index 870d470..4acbcab 100644
+--- a/EntersubForCV.xs
++++ b/EntersubForCV.xs
+@@ -60,7 +60,12 @@ entersub_cb (pTHX_ OP *op, void *user_data) {
+ return op;
+ }
+
+- cv = GvCV (cGVOPx_gv (kid));
++ GV *gv = cGVOPx_gv (kid);
++ if (SvROK(gv)) { /* since v5.21.3-654-ga65cc14 */
++ cv = (CV *)SvRV(gv);
++ } else {
++ cv = GvCV (gv);
++ }
+
+ if (ud->cv == cv) {
+ op = ud->cb (aTHX_ op, cv, ud->ud);
+--
+2.6.4
+
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..de76cb9
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+0001-Perl-5.21.4-compatibility.patch
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libb-hooks-op-check-entersubforcv-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
