Hello community, here is the log from the commit of package perl-PadWalker for openSUSE:Factory checked in at 2015-10-24 18:56:26 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-PadWalker (Old) and /work/SRC/openSUSE:Factory/.perl-PadWalker.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-PadWalker" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-PadWalker/perl-PadWalker.changes 2015-04-25 14:09:22.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-PadWalker.new/perl-PadWalker.changes 2015-10-24 18:56:42.000000000 +0200 @@ -1,0 +2,11 @@ +Sat Oct 24 09:21:38 UTC 2015 - [email protected] + +- updated to 2.2 + see /usr/share/doc/packages/perl-PadWalker/Changes + + + 2.2 Fri 23 Oct 2015 17:55:31 BST + - Convert to PERL_NO_GET_CONTEXT + https://github.com/robinhouston/PadWalker/pull/2 + +------------------------------------------------------------------- Old: ---- PadWalker-2.1.tar.gz New: ---- PadWalker-2.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-PadWalker.spec ++++++ --- /var/tmp/diff_new_pack.UVHClJ/_old 2015-10-24 18:56:43.000000000 +0200 +++ /var/tmp/diff_new_pack.UVHClJ/_new 2015-10-24 18:56:43.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-PadWalker -Version: 2.1 +Version: 2.2 Release: 0 %define cpan_name PadWalker Summary: Play with Other Peoples' Lexical Variables ++++++ PadWalker-2.1.tar.gz -> PadWalker-2.2.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PadWalker-2.1/Changes new/PadWalker-2.2/Changes --- old/PadWalker-2.1/Changes 2015-04-24 21:29:44.000000000 +0200 +++ new/PadWalker-2.2/Changes 2015-10-23 18:56:04.000000000 +0200 @@ -181,3 +181,7 @@ 2.1 Fri 24 Apr 2015 20:29:12 BST - Another bleadperl fix https://rt.cpan.org/Public/Bug/Display.html?id=101037 + +2.2 Fri 23 Oct 2015 17:55:31 BST + - Convert to PERL_NO_GET_CONTEXT + https://github.com/robinhouston/PadWalker/pull/2 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PadWalker-2.1/META.json new/PadWalker-2.2/META.json --- old/PadWalker-2.1/META.json 2015-04-24 21:33:29.000000000 +0200 +++ new/PadWalker-2.2/META.json 2015-10-23 18:56:46.000000000 +0200 @@ -37,5 +37,5 @@ } }, "release_status" : "stable", - "version" : "2.1" + "version" : "2.2" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PadWalker-2.1/META.yml new/PadWalker-2.2/META.yml --- old/PadWalker-2.1/META.yml 2015-04-24 21:33:29.000000000 +0200 +++ new/PadWalker-2.2/META.yml 2015-10-23 18:56:46.000000000 +0200 @@ -19,4 +19,4 @@ - inc requires: perl: 5.008001 -version: 2.1 +version: 2.2 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PadWalker-2.1/PadWalker.pm new/PadWalker-2.2/PadWalker.pm --- old/PadWalker-2.1/PadWalker.pm 2015-04-24 21:30:06.000000000 +0200 +++ new/PadWalker-2.2/PadWalker.pm 2015-10-23 18:55:23.000000000 +0200 @@ -12,7 +12,7 @@ @EXPORT_OK = qw(peek_my peek_our closed_over peek_sub var_name set_closed_over); %EXPORT_TAGS = (all => \@EXPORT_OK); -$VERSION = '2.1'; +$VERSION = '2.2'; bootstrap PadWalker $VERSION; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PadWalker-2.1/PadWalker.xs new/PadWalker-2.2/PadWalker.xs --- old/PadWalker-2.1/PadWalker.xs 2015-04-24 21:25:40.000000000 +0200 +++ new/PadWalker-2.2/PadWalker.xs 2015-10-23 18:55:04.000000000 +0200 @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "EXTERN.h" #include "perl.h" #include "XSUB.h" @@ -172,7 +173,7 @@ /* end thievery */ SV* -fetch_from_stash(HV *stash, char *name_str, U32 name_len) +fetch_from_stash(pTHX_ HV *stash, char *name_str, U32 name_len) { /* This isn't the most efficient approach, but it has * the advantage that it uses documented API functions. */ @@ -204,7 +205,7 @@ } void -pads_into_hash(PADNAMELIST* pad_namelist, PAD* pad_vallist, HV* my_hash, +pads_into_hash(pTHX_ PADNAMELIST* pad_namelist, PAD* pad_vallist, HV* my_hash, HV* our_hash, U32 valid_at_seq) { I32 i; @@ -254,7 +255,7 @@ } else { if (is_our) { - val_sv = fetch_from_stash(PadnameOURSTASH(name_sv), + val_sv = fetch_from_stash(aTHX_ PadnameOURSTASH(name_sv), name_str, name_len); if (!val_sv) { debug_print(("Value of our variable is undefined\n")); @@ -278,7 +279,7 @@ } void -padlist_into_hash(PADLIST* padlist, HV* my_hash, HV* our_hash, +padlist_into_hash(pTHX_ PADLIST* padlist, HV* my_hash, HV* our_hash, U32 valid_at_seq, long depth) { PADNAMELIST *pad_namelist; @@ -293,11 +294,11 @@ pad_namelist = PadlistNAMES(padlist); pad_vallist = PadlistARRAY(padlist)[depth]; - pads_into_hash(pad_namelist, pad_vallist, my_hash, our_hash, valid_at_seq); + pads_into_hash(aTHX_ pad_namelist, pad_vallist, my_hash, our_hash, valid_at_seq); } void -context_vars(PERL_CONTEXT *cx, HV* my_ret, HV* our_ret, U32 seq, CV *cv) +context_vars(pTHX_ PERL_CONTEXT *cx, HV* my_ret, HV* our_ret, U32 seq, CV *cv) { /* If cx is null, we take that to mean that we should look * at the cv instead @@ -319,7 +320,7 @@ debug_print(("\tcv name = %s; depth=%ld\n", CvGV(cur_cv) ? GvNAME(CvGV(cur_cv)) :"(null)", depth)); if (CvPADLIST(cur_cv)) - padlist_into_hash(CvPADLIST(cur_cv), my_ret, our_ret, seq, depth); + padlist_into_hash(aTHX_ CvPADLIST(cur_cv), my_ret, our_ret, seq, depth); cur_cv = CvOUTSIDE(cur_cv); if (cur_cv) depth = CvDEPTH(cur_cv); } @@ -327,7 +328,7 @@ } void -do_peek(I32 uplevel, HV* my_hash, HV* our_hash) +do_peek(pTHX_ I32 uplevel, HV* my_hash, HV* our_hash) { PERL_CONTEXT *cx, *ccstack; COP *cop = 0; @@ -346,7 +347,7 @@ } debug_print(("**Cop file = %s\n", CopFILE(cop))); - context_vars(cx, my_hash, our_hash, cop->cop_seq, PL_main_cv); + context_vars(aTHX_ cx, my_hash, our_hash, cop->cop_seq, PL_main_cv); for (i = cxix_from-1; i > cxix_to; --i) { debug_print(("** CxTYPE = %s (cxix = %ld)\n", @@ -357,17 +358,17 @@ switch(CxOLD_OP_TYPE(&ccstack[i])) { case OP_ENTEREVAL: if (first_eval) { - context_vars(0, my_hash, our_hash, cop->cop_seq, ccstack[i].blk_eval.cv); + context_vars(aTHX_ 0, my_hash, our_hash, cop->cop_seq, ccstack[i].blk_eval.cv); first_eval = FALSE; } - context_vars(0, my_hash, our_hash, ccstack[i].blk_oldcop->cop_seq, + context_vars(aTHX_ 0, my_hash, our_hash, ccstack[i].blk_oldcop->cop_seq, ccstack[i].blk_eval.cv); break; case OP_REQUIRE: case OP_DOFILE: debug_print(("blk_eval.cv = %p\n", (void*) ccstack[i].blk_eval.cv)); if (first_eval) - context_vars(0, my_hash, our_hash, + context_vars(aTHX_ 0, my_hash, our_hash, cop->cop_seq, ccstack[i].blk_eval.cv); return; /* If it's OP_ENTERTRY, we skip this altogether. */ @@ -385,7 +386,7 @@ } void -get_closed_over(CV *cv, HV *hash, HV *indices) +get_closed_over(pTHX_ CV *cv, HV *hash, HV *indices) { I32 i; U32 val_depth; @@ -454,7 +455,7 @@ } CV * -up_cv(I32 uplevel, const char * caller_name) +up_cv(pTHX_ I32 uplevel, const char * caller_name) { PERL_CONTEXT *cx, *ccstack; I32 cxix_from, cxix_to, i; @@ -514,7 +515,7 @@ HV* ret = newHV(); HV* ignore = newHV(); PPCODE: - do_peek(uplevel, ret, ignore); + do_peek(aTHX_ uplevel, ret, ignore); SvREFCNT_dec((SV*) ignore); EXTEND(SP, 1); PUSHs(sv_2mortal(newRV_noinc((SV*)ret))); @@ -526,7 +527,7 @@ HV* ret = newHV(); HV* ignore = newHV(); PPCODE: - do_peek(uplevel, ignore, ret); + do_peek(aTHX_ uplevel, ignore, ret); SvREFCNT_dec((SV*) ignore); EXTEND(SP, 1); PUSHs(sv_2mortal(newRV_noinc((SV*)ret))); @@ -541,7 +542,7 @@ PPCODE: if (CvISXSUB(cv)) die("PadWalker: cv has no padlist"); - padlist_into_hash(CvPADLIST(cv), ret, ignore, 0, CvDEPTH(cv)); + padlist_into_hash(aTHX_ CvPADLIST(cv), ret, ignore, 0, CvDEPTH(cv)); SvREFCNT_dec((SV*) ignore); EXTEND(SP, 1); PUSHs(sv_2mortal(newRV_noinc((SV*)ret))); @@ -598,14 +599,14 @@ PPCODE: if (GIMME_V == G_ARRAY) { targs = newHV(); - get_closed_over(cv, ret, targs); + get_closed_over(aTHX_ cv, ret, targs); EXTEND(SP, 2); PUSHs(sv_2mortal(newRV_noinc((SV*)ret))); PUSHs(sv_2mortal(newRV_noinc((SV*)targs))); } else { - get_closed_over(cv, ret, 0); + get_closed_over(aTHX_ cv, ret, 0); EXTEND(SP, 1); PUSHs(sv_2mortal(newRV_noinc((SV*)ret))); @@ -626,7 +627,7 @@ if (SvTYPE(cv) != SVt_PVCV) croak("PadWalker::var_name: sub is neither a CODE reference nor a number"); } else - cv = (SV *) up_cv(SvIV(sub), "PadWalker::upcontext"); + cv = (SV *) up_cv(aTHX_ SvIV(sub), "PadWalker::upcontext"); RETVAL = get_var_name((CV *) cv, SvRV(var_ref)); OUTPUT: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PadWalker-2.1/README new/PadWalker-2.2/README --- old/PadWalker-2.1/README 2015-04-24 21:29:50.000000000 +0200 +++ new/PadWalker-2.2/README 2015-10-23 18:55:26.000000000 +0200 @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- -| PadWalker v2.1 - Robin Houston +| PadWalker v2.2 - Robin Houston ----------------------------------------------------------------------------- NAME
