r21772 - in /branches/upstream/libpadwalker-perl/current: Changes META.yml Makefile.PL PadWalker.pm PadWalker.xs README

[tincho at users.alioth.debian.org]

Author: tincho
Date: Tue Jun 17 00:39:15 2008
New Revision: 21772

URL: http://svn.debian.org/wsvn/?sc=1&rev=21772
Log:
[svn-upgrade] Integrating new upstream version, libpadwalker-perl (1.7)

Modified:
    branches/upstream/libpadwalker-perl/current/Changes
    branches/upstream/libpadwalker-perl/current/META.yml
    branches/upstream/libpadwalker-perl/current/Makefile.PL
    branches/upstream/libpadwalker-perl/current/PadWalker.pm
    branches/upstream/libpadwalker-perl/current/PadWalker.xs
    branches/upstream/libpadwalker-perl/current/README

Modified: branches/upstream/libpadwalker-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libpadwalker-perl/current/Changes?rev=21772&op=diff
==============================================================================
--- branches/upstream/libpadwalker-perl/current/Changes (original)
+++ branches/upstream/libpadwalker-perl/current/Changes Tue Jun 17 00:39:15 2008
@@ -117,3 +117,6 @@
 	  (http://rt.cpan.org/Ticket/Display.html?id=32287)
 	  Thanks to Niko Tyni.
 
+1.7  Mon Feb  4 09:56:31 GMT 2008
+	- Keep up with changes in blead post-5.10 (@33030)
+

Modified: branches/upstream/libpadwalker-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libpadwalker-perl/current/META.yml?rev=21772&op=diff
==============================================================================
--- branches/upstream/libpadwalker-perl/current/META.yml (original)
+++ branches/upstream/libpadwalker-perl/current/META.yml Tue Jun 17 00:39:15 2008
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         PadWalker
-version:      1.6
+version:      1.7
 license:      perl
 version_from: PadWalker.pm
 installdirs:  site

Modified: branches/upstream/libpadwalker-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libpadwalker-perl/current/Makefile.PL?rev=21772&op=diff
==============================================================================
--- branches/upstream/libpadwalker-perl/current/Makefile.PL (original)
+++ branches/upstream/libpadwalker-perl/current/Makefile.PL Tue Jun 17 00:39:15 2008
@@ -34,4 +34,5 @@
     'INC'	=> '',     # e.g., '-I/usr/include/other',
     ($DEBUGGING ? (CCFLAGS => '-Wall -ansi') : ()),
     'NO_META'   => 1,
+    dist => {TAR => 'gnutar'}
 );

Modified: branches/upstream/libpadwalker-perl/current/PadWalker.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libpadwalker-perl/current/PadWalker.pm?rev=21772&op=diff
==============================================================================
--- branches/upstream/libpadwalker-perl/current/PadWalker.pm (original)
+++ branches/upstream/libpadwalker-perl/current/PadWalker.pm Tue Jun 17 00:39:15 2008
@@ -12,7 +12,7 @@
 @EXPORT_OK = qw(peek_my peek_our closed_over peek_sub var_name);
 %EXPORT_TAGS = (all => \@EXPORT_OK);
 
-$VERSION = '1.6';
+$VERSION = '1.7';
 
 bootstrap PadWalker $VERSION;
 

Modified: branches/upstream/libpadwalker-perl/current/PadWalker.xs
URL: http://svn.debian.org/wsvn/branches/upstream/libpadwalker-perl/current/PadWalker.xs?rev=21772&op=diff
==============================================================================
--- branches/upstream/libpadwalker-perl/current/PadWalker.xs (original)
+++ branches/upstream/libpadwalker-perl/current/PadWalker.xs Tue Jun 17 00:39:15 2008
@@ -1,6 +1,10 @@
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
+
+#ifndef CxOLD_OP_TYPE
+#  define CxOLD_OP_TYPE(cx)      (0 + (cx)->blk_eval.old_op_type)
+#endif
 
 /* For development testing */
 #ifdef PADWALKER_DEBUGGING
@@ -319,8 +323,8 @@
             cxtype_name(CxTYPE(&ccstack[i])), i));
         switch (CxTYPE(&ccstack[i])) {
         case CXt_EVAL:
-            debug_print(("\told_op_type = %ld\n", ccstack[i].blk_eval.old_op_type));
-            switch(ccstack[i].blk_eval.old_op_type) {
+            debug_print(("\told_op_type = %ld\n", CxOLD_OP_TYPE(&ccstack[i])));
+            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);
@@ -435,7 +439,7 @@
 
       for (i = cxix_from-1; i > cxix_to; --i)
         if (CxTYPE(&ccstack[i]) == CXt_EVAL) {
-          I32 old_op_type = ccstack[i].blk_eval.old_op_type;
+          I32 old_op_type = CxOLD_OP_TYPE(&ccstack[i]);
           if (old_op_type == OP_REQUIRE || old_op_type == OP_DOFILE)
             return ccstack[i].blk_eval.cv;
         }

Modified: branches/upstream/libpadwalker-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libpadwalker-perl/current/README?rev=21772&op=diff
==============================================================================
--- branches/upstream/libpadwalker-perl/current/README (original)
+++ branches/upstream/libpadwalker-perl/current/README Tue Jun 17 00:39:15 2008
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
-| PadWalker v1.6    - Robin Houston
+| PadWalker v1.7    - Robin Houston
 -----------------------------------------------------------------------------
 
 NAME