r67841 - in /trunk/libdata-dump-streamer-perl: Changes MANIFEST META.yml debian/changelog lib/Data/Dump/Streamer.pm lib/Data/Dump/Streamer.xs lib/Data/Dump/ppport.h

angelabad-guest at users.alioth.debian.org angelabad-guest at users.alioth.debian.org
Mon Jan 24 23:04:54 UTC 2011


Author: angelabad-guest
Date: Mon Jan 24 23:04:30 2011
New Revision: 67841

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

Added:
    trunk/libdata-dump-streamer-perl/lib/Data/Dump/ppport.h
      - copied unchanged from r67837, branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/ppport.h
Modified:
    trunk/libdata-dump-streamer-perl/Changes
    trunk/libdata-dump-streamer-perl/MANIFEST
    trunk/libdata-dump-streamer-perl/META.yml
    trunk/libdata-dump-streamer-perl/debian/changelog
    trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.pm
    trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.xs

Modified: trunk/libdata-dump-streamer-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-streamer-perl/Changes?rev=67841&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/Changes (original)
+++ trunk/libdata-dump-streamer-perl/Changes Mon Jan 24 23:04:30 2011
@@ -1,3 +1,11 @@
+2.25 (2011-01-24)
+Oops, add ppport.h to the packaged distribution
+
+2.24 (2011-01-23)
+Fix weakref breakage from perl-5648c0a. [RT #62605]
+Add ppport.h
+Add .gitignore
+
 2.23 (2011-01-18)
 Fix DumpLex for bug #44621
 

Modified: trunk/libdata-dump-streamer-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-streamer-perl/MANIFEST?rev=67841&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/MANIFEST (original)
+++ trunk/libdata-dump-streamer-perl/MANIFEST Mon Jan 24 23:04:30 2011
@@ -3,6 +3,7 @@
 Changes
 inc/My/Builder.pm
 INSTALL.SKIP
+lib/Data/Dump/ppport.h
 lib/Data/Dump/Streamer.pm
 lib/Data/Dump/Streamer.xs
 lib/Data/Dump/Streamer/_/Printers.pm

Modified: trunk/libdata-dump-streamer-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-streamer-perl/META.yml?rev=67841&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/META.yml (original)
+++ trunk/libdata-dump-streamer-perl/META.yml Mon Jan 24 23:04:30 2011
@@ -31,10 +31,10 @@
 provides:
   Data::Dump::Streamer:
     file: lib/Data/Dump/Streamer.pm
-    version: 2.23
+    version: 2.25
   Data::Dump::Streamer::Deparser:
     file: lib/Data/Dump/Streamer.pm
-    version: 2.23
+    version: 2.25
 recommends:
   Algorithm::Diff: 0
   Compress::Zlib: 0
@@ -60,4 +60,4 @@
   warnings::register: 0
 resources:
   license: http://dev.perl.org/licenses/
-version: 2.23
+version: 2.25

Modified: trunk/libdata-dump-streamer-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-streamer-perl/debian/changelog?rev=67841&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/debian/changelog (original)
+++ trunk/libdata-dump-streamer-perl/debian/changelog Mon Jan 24 23:04:30 2011
@@ -1,3 +1,9 @@
+libdata-dump-streamer-perl (2.25-1) unstable; urgency=low
+
+  * New upstream release
+
+ -- Angel Abad <angelabad at gmail.com>  Tue, 25 Jan 2011 00:04:12 +0100
+
 libdata-dump-streamer-perl (2.23-1) unstable; urgency=low
 
   [ Russ Allbery ]

Modified: trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.pm?rev=67841&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.pm (original)
+++ trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.pm Mon Jan 24 23:04:30 2011
@@ -34,7 +34,7 @@
 
 BEGIN {
     #$Id: Streamer.pm 40 2007-12-22 00:37:55Z demerphq $#
-    $VERSION   ='2.23';
+    $VERSION   ='2.25';
     $VERSION = eval $VERSION; # used for beta stuff.
     @ISA       = qw(Exporter DynaLoader);
     @EXPORT=qw(Dump DumpLex DumpVars);
@@ -3671,7 +3671,7 @@
 our @ISA=qw(B::Deparse);
 my %cache;
 
-our $VERSION = '2.23';
+our $VERSION = '2.25';
 if ( $VERSION ne $Data::Dump::Streamer::VERSION ) {
     die "Incompatible Data::Dump::Streamer::Deparser v$VERSION vs Data::Dump::Streamer v$Data::Dump::Streamer::VERSION";
 }

Modified: trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.xs?rev=67841&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.xs (original)
+++ trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.xs Mon Jan 24 23:04:30 2011
@@ -32,18 +32,19 @@
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
+#include "ppport.h"
 #ifdef __cplusplus
 }
 #endif
 
 #ifndef PERL_VERSION
 #    include <patchlevel.h>
-#    if !(defined(PERL_VERSION) || (SUBVERSION > 0 && defined(PATCHLEVEL)))
+#    if !(defined(PERL_VERSION) || (PERL_SUBVERSION > 0 && defined(PATCHLEVEL)))
 #        include <could_not_find_Perl_patchlevel.h>
 #    endif
 #    define PERL_REVISION	5
 #    define PERL_VERSION	PATCHLEVEL
-#    define PERL_SUBVERSION	SUBVERSION
+#    define PERL_SUBVERSION	PERL_SUBVERSION
 #endif
 #if PERL_VERSION < 8
 #   define PERL_MAGIC_qr		  'r' /* precompiled qr// regex */
@@ -74,8 +75,13 @@
         if( SvMAGICAL(sv)                               \
             && (mg = mg_find(sv, PERL_MAGIC_backref) )  \
         ){                                              \
-            AV *av = (AV *)mg->mg_obj;                  \
-            RETVAL += av_len(av)+1;                     \
+            SV **svp = (SV**)mg->mg_obj;                \
+            if (svp && *svp) {                          \
+                RETVAL +=                               \
+                    SvTYPE(*svp) == SVt_PVAV            \
+                    ? av_len((AV*)*svp)+1               \
+                    : 1;                                \
+            }                                           \
         }                                               \
     } while (0)
 #else




More information about the Pkg-perl-cvs-commits mailing list