r21774 - in /trunk/libpadwalker-perl: Changes META.yml Makefile.PL PadWalker.pm PadWalker.xs README debian/changelog

[tincho at users.alioth.debian.org]

Author: tincho
Date: Tue Jun 17 00:43:55 2008
New Revision: 21774

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=21774
Log:
New upstream release.

Modified:
    trunk/libpadwalker-perl/Changes
    trunk/libpadwalker-perl/META.yml
    trunk/libpadwalker-perl/Makefile.PL
    trunk/libpadwalker-perl/PadWalker.pm
    trunk/libpadwalker-perl/PadWalker.xs
    trunk/libpadwalker-perl/README
    trunk/libpadwalker-perl/debian/changelog

Modified: trunk/libpadwalker-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/Changes?rev=21774&op=diff
==============================================================================
--- trunk/libpadwalker-perl/Changes (original)
+++ trunk/libpadwalker-perl/Changes Tue Jun 17 00:43:55 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: trunk/libpadwalker-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/META.yml?rev=21774&op=diff
==============================================================================
--- trunk/libpadwalker-perl/META.yml (original)
+++ trunk/libpadwalker-perl/META.yml Tue Jun 17 00:43:55 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: trunk/libpadwalker-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/Makefile.PL?rev=21774&op=diff
==============================================================================
--- trunk/libpadwalker-perl/Makefile.PL (original)
+++ trunk/libpadwalker-perl/Makefile.PL Tue Jun 17 00:43:55 2008
@@ -34,4 +34,5 @@
     'INC'	=> '',     # e.g., '-I/usr/include/other',
     ($DEBUGGING ? (CCFLAGS => '-Wall -ansi') : ()),
     'NO_META'   => 1,
+    dist => {TAR => 'gnutar'}
 );

Modified: trunk/libpadwalker-perl/PadWalker.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/PadWalker.pm?rev=21774&op=diff
==============================================================================
--- trunk/libpadwalker-perl/PadWalker.pm (original)
+++ trunk/libpadwalker-perl/PadWalker.pm Tue Jun 17 00:43:55 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: trunk/libpadwalker-perl/PadWalker.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/PadWalker.xs?rev=21774&op=diff
==============================================================================
--- trunk/libpadwalker-perl/PadWalker.xs (original)
+++ trunk/libpadwalker-perl/PadWalker.xs Tue Jun 17 00:43:55 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: trunk/libpadwalker-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/README?rev=21774&op=diff
==============================================================================
--- trunk/libpadwalker-perl/README (original)
+++ trunk/libpadwalker-perl/README Tue Jun 17 00:43:55 2008
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
-| PadWalker v1.6    - Robin Houston
+| PadWalker v1.7    - Robin Houston
 -----------------------------------------------------------------------------
 
 NAME

Modified: trunk/libpadwalker-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpadwalker-perl/debian/changelog?rev=21774&op=diff
==============================================================================
--- trunk/libpadwalker-perl/debian/changelog (original)
+++ trunk/libpadwalker-perl/debian/changelog Tue Jun 17 00:43:55 2008
@@ -1,5 +1,6 @@
-libpadwalker-perl (1.6-1) UNRELEASED; urgency=low
+libpadwalker-perl (1.7-1) UNRELEASED; urgency=low
 
+  [ gregor herrmann ]
   * Take over for the Debian Perl Group with maintainer's permission
     (http://lists.debian.org/debian-perl/2008/06/msg00039.html)
   * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
@@ -10,7 +11,10 @@
     Uploaders.
   * Ack NMU (closes: #471531).
 
- -- gregor herrmann <gregoa at debian.org>  Sun, 15 Jun 2008 18:59:57 +0200
+  [ Martín Ferrari ]
+  * New upstream release.
+
+ -- Martín Ferrari <tincho at debian.org>  Mon, 16 Jun 2008 21:40:03 -0300
 
 libpadwalker-perl (1.6-0.1) unstable; urgency=low