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

carnil pushed a commit to branch master
in repository liblexical-var-perl.

commit 46c74ff326db38aa5c5e2b09cdd27ae92069b378
Author: Salvatore Bonaccorso <car...@debian.org>
Date:   Mon Aug 24 10:49:12 2015 +0200

    Add Fix-796396-FTBFS-with-Perl-5.22.patch patch
    
    Fixes "FTBFS with perl 5.22: compilation failures".
    
    Thanks: Dominic Hargreaves <d...@earth.li>
    
    Closes: #796396
---
 .../patches/Fix-796396-FTBFS-with-Perl-5.22.patch  | 66 ++++++++++++++++++++++
 debian/patches/series                              |  1 +
 2 files changed, 67 insertions(+)

diff --git a/debian/patches/Fix-796396-FTBFS-with-Perl-5.22.patch 
b/debian/patches/Fix-796396-FTBFS-with-Perl-5.22.patch
new file mode 100644
index 0000000..a18cec9
--- /dev/null
+++ b/debian/patches/Fix-796396-FTBFS-with-Perl-5.22.patch
@@ -0,0 +1,66 @@
+Description: Fix FTBFS with Perl 5.22
+Origin: vendor, 
https://rt.cpan.org/Public/Ticket/Attachment/1445011/768261/open_NdIzHtPL.txt
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=101058
+Bug-Debian: https://bugs.debian.org/796396
+Forwarded: not-needed
+Last-Update: 2015-08-24
+
+diff -rup Lexical-Var-0.009-ubeeQC-orig/lib/Lexical/Var.xs 
Lexical-Var-0.009-ubeeQC/lib/Lexical/Var.xs
+--- Lexical-Var-0.009-ubeeQC-orig/lib/Lexical/Var.xs   2013-08-25 
11:51:34.000000000 -0700
++++ Lexical-Var-0.009-ubeeQC/lib/Lexical/Var.xs        2014-12-21 
10:58:32.000000000 -0800
+@@ -62,7 +62,12 @@ typedef AV PAD;
+ #endif /* !COP_SEQ_RANGE_LOW */
+ 
+ #ifndef COP_SEQ_RANGE_LOW_set
+-# if PERL_VERSION_GE(5,9,5)
++# ifdef newPADNAMEpvn
++#  define COP_SEQ_RANGE_LOW_set(sv,val) \
++      do { (sv)->xpadn_low = (val); } while(0)
++#  define COP_SEQ_RANGE_HIGH_set(sv,val) \
++      do { (sv)->xpadn_high = (val); } while(0)
++# elif PERL_VERSION_GE(5,9,5)
+ #  define COP_SEQ_RANGE_LOW_set(sv,val) \
+       do { ((XPVNV*)SvANY(sv))->xnv_u.xpad_cop_seq.xlow = val; } while(0)
+ #  define COP_SEQ_RANGE_HIGH_set(sv,val) \
+@@ -95,6 +100,12 @@ static SV *THX_newSV_type(pTHX_ svtype t
+ # define GV_NOTQUAL 0
+ #endif /* !GV_NOTQUAL */
+ 
++#ifndef padnamelist_store
++ /* Note that the return values are different.  If we ever call it in non-
++    void context, we would have to change it to *av_store.  */
++# define padnamelist_store av_store
++#endif
++
+ /*
+  * scalar classification
+  *
+@@ -460,13 +471,18 @@ static void THX_setup_pad(pTHX_ CV *comp
+       PADNAMELIST *padname = PadlistNAMES(padlist);
+       PAD *padvar = PadlistARRAY(padlist)[1];
+       PADOFFSET ouroffset;
+-      SV *ourname, *ourvar;
++      PADNAME *ourname;
++      SV *ourvar;
+       HV *stash;
+       ourvar = *av_fetch(padvar, PadMAX(padvar) + 1, 1);
+       SvPADMY_on(ourvar);
+       ouroffset = PadMAX(padvar);
++#ifdef newPADNAMEpvn
++      ourname = newPADNAMEpvn(name, strlen(name));
++#else
+       ourname = newSV_type(SVt_PADNAME);
+       sv_setpv(ourname, name);
++#endif
+       SvPAD_OUR_on(ourname);
+       stash = name[0] == '$' ? stash_lex_sv :
+               name[0] == '@' ? stash_lex_av : stash_lex_hv;
+@@ -474,7 +490,7 @@ static void THX_setup_pad(pTHX_ CV *comp
+       COP_SEQ_RANGE_LOW_set(ourname, PL_cop_seqmax);
+       COP_SEQ_RANGE_HIGH_set(ourname, pad_max());
+       PL_cop_seqmax++;
+-      av_store(padname, ouroffset, ourname);
++      padnamelist_store(padname, ouroffset, ourname);
+ #ifdef PadnamelistMAXNAMED
+       PadnamelistMAXNAMED(padname) = ouroffset;
+ #endif /* PadnamelistMAXNAMED */
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..41a0e42
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+Fix-796396-FTBFS-with-Perl-5.22.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/liblexical-var-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

Reply via email to