r11501 - in /branches/upstream/libdata-dump-streamer-perl/current: .patch Changes META.yml Streamer.xs lib/Data/Dump/Streamer.pm t/dump.t
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Sun Dec 23 12:06:47 UTC 2007
Author: tincho-guest
Date: Sun Dec 23 12:06:46 2007
New Revision: 11501
URL: http://svn.debian.org/wsvn/?sc=1&rev=11501
Log:
[svn-upgrade] Integrating new upstream version, libdata-dump-streamer-perl (2.08-40)
Modified:
branches/upstream/libdata-dump-streamer-perl/current/.patch
branches/upstream/libdata-dump-streamer-perl/current/Changes
branches/upstream/libdata-dump-streamer-perl/current/META.yml
branches/upstream/libdata-dump-streamer-perl/current/Streamer.xs
branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/Streamer.pm
branches/upstream/libdata-dump-streamer-perl/current/t/dump.t
Modified: branches/upstream/libdata-dump-streamer-perl/current/.patch
URL: http://svn.debian.org/wsvn/branches/upstream/libdata-dump-streamer-perl/current/.patch?rev=11501&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/.patch (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/.patch Sun Dec 23 12:06:46 2007
@@ -1,1 +1,1 @@
-36
+40
Modified: branches/upstream/libdata-dump-streamer-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libdata-dump-streamer-perl/current/Changes?rev=11501&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/Changes (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/Changes Sun Dec 23 12:06:46 2007
@@ -1,4 +1,27 @@
-$Id: Changes 35 2007-08-22 22:24:33Z demerphq $
+$Id: Changes 40 2007-12-22 00:37:55Z demerphq $
+
+2.08 (2007-12-22 01:34:13)
+
+Hashkeys starting with '-' were sometimes incorrectly quoted.
+See RT #29608 at
+ http://rt.cpan.org/Ticket/Display.html?id=29608
+Thanks to Maddingue for the heads up.
+
+2.07 (2007-12-22 01:10:02)
+
+Version 2.06 broke on Perls < 5.10 due to a stupid thinko. Should
+build on the main Perls fine now.
+
+2.06 (2007-12-21 22:27:45)
+
+Finally got DDS running under blead/Perl 5.10
+
+Currently we duplicate code that is in Perl 5.10's Hash::Util (*),
+this code should not be compiled under Perl 5.10 and we should
+just use Hash::Util instead.
+
+(*) Actually Hash::Util duplicates this code, but whatever, thats
+called progress. :-)
2.05 (2007-08-23 00:23:19)
Modified: branches/upstream/libdata-dump-streamer-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libdata-dump-streamer-perl/current/META.yml?rev=11501&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/META.yml (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/META.yml Sun Dec 23 12:06:46 2007
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Data-Dump-Streamer
-version: 2.05-36
+version: 2.08-40
abstract: Accurately serialize a data structure as Perl code.
license: ~
generated_by: ExtUtils::MakeMaker version 6.36
Modified: branches/upstream/libdata-dump-streamer-perl/current/Streamer.xs
URL: http://svn.debian.org/wsvn/branches/upstream/libdata-dump-streamer-perl/current/Streamer.xs?rev=11501&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/Streamer.xs (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/Streamer.xs Sun Dec 23 12:06:46 2007
@@ -1,7 +1,7 @@
/*
* Streamer.xs
*
- * $Id: Streamer.xs 28 2006-04-16 15:21:51Z demerphq $
+ * $Id: Streamer.xs 39 2007-12-22 00:11:22Z demerphq $
*
* Code from Array::RefElem
* Copyright (c) 1997-2000 Graham Barr <gbarr at pobox.com>. All rights reserved.
@@ -48,13 +48,16 @@
#if PERL_VERSION < 8
# define PERL_MAGIC_qr 'r' /* precompiled qr// regex */
# define BFD_Svs_SMG_OR_RMG SVs_RMG
-#elif PERL_SUBVERSION>=1
+#elif ((PERL_VERSION==8) && (PERL_SUBVERSION >= 1) || (PERL_VERSION>8))
# define BFD_Svs_SMG_OR_RMG SVs_SMG
# define MY_PLACEHOLDER PL_sv_placeholder
#else
# define BFD_Svs_SMG_OR_RMG SVs_RMG
# define MY_PLACEHOLDER PL_sv_undef
#endif
+#if (((PERL_VERSION == 9) && (PERL_SUBVERSION >= 4)) || (PERL_VERSION > 9))
+# define NEW_REGEX_ENGINE 1
+#endif
#if (((PERL_VERSION == 8) && (PERL_SUBVERSION >= 1)) || (PERL_VERSION > 8))
#define MY_CAN_FIND_PLACEHOLDERS
#define HAS_SV2OBJ
@@ -350,7 +353,7 @@
if(!sv_isobject(sv)) {
XSRETURN_UNDEF;
}
- RETVAL = sv_reftype(SvRV(sv),TRUE);
+ RETVAL = (char *)sv_reftype(SvRV(sv),TRUE);
}
OUTPUT:
RETVAL
@@ -558,7 +561,7 @@
if(!SvROK(sv)) {
XSRETURN_NO;
} else {
- RETVAL = sv_reftype(SvRV(sv),FALSE);
+ RETVAL = (char *)sv_reftype(SvRV(sv),FALSE);
}
}
OUTPUT:
@@ -762,7 +765,7 @@
RETVAL
-
+#ifndef NEW_REGEX_ENGINE
void
regex(sv)
@@ -925,6 +928,7 @@
XSRETURN_UNDEF;
}
+#endif
#ifdef MY_CAN_FIND_PLACEHOLDERS
Modified: branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/Streamer.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/Streamer.pm?rev=11501&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/Streamer.pm (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/Streamer.pm Sun Dec 23 12:06:46 2007
@@ -34,9 +34,9 @@
BEGIN{ $HasPadWalker=eval "use PadWalker 0.99; 1"; }
BEGIN {
- #$Id: Streamer.pm 36 2007-08-22 22:27:27Z demerphq $#
- $VERSION ='2.05';
- $XS_VERSION='2.01';
+ #$Id: Streamer.pm 40 2007-12-22 00:37:55Z demerphq $#
+ $VERSION ='2.08';
+ $XS_VERSION='2.07';
$VERSION = eval $VERSION; # used for beta stuff.
@ISA = qw(Exporter DynaLoader);
@EXPORT=qw(Dump DumpLex DumpVars);
@@ -125,6 +125,13 @@
#warn $VERSION;
Data::Dump::Streamer->bootstrap($XS_VERSION);
+ if ($]>=5.009004) {
+ eval q[
+ use re qw(regexp_pattern);
+ *regex= *regexp_pattern;
+ 1;
+ ] or die $@;
+ }
if ($]<=5.008) {
*hidden_keys=sub(\%) { return () };
*legal_keys=sub(\%) { return keys %{$_[0]} };
@@ -808,7 +815,7 @@
my $key = shift;
if (!defined($key) or $key eq '') {
return '""'
- } elsif ($key=~$numeric_rex or $key =~ /^[-A-Za-z_]\w*$/) {
+ } elsif ($key=~$numeric_rex or $key =~ /^-?[A-Za-z_]\w*$/) {
return $key
} else {
_qquote($key);
Modified: branches/upstream/libdata-dump-streamer-perl/current/t/dump.t
URL: http://svn.debian.org/wsvn/branches/upstream/libdata-dump-streamer-perl/current/t/dump.t?rev=11501&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/t/dump.t (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/t/dump.t Sun Dec 23 12:06:46 2007
@@ -1,10 +1,10 @@
-use Test::More tests => 47;
+use Test::More tests => 48;
BEGIN { use_ok( 'Data::Dump::Streamer', qw(:undump Dump DumpLex DumpVars) ); }
use strict;
use warnings;
use Data::Dumper;
-#$Id: dump.t 26 2006-04-16 15:18:52Z demerphq $#
+#$Id: dump.t 40 2007-12-22 00:37:55Z demerphq $#
# imports same()
(my $helper=$0)=~s/\w+\.\w+$/test_helper.pl/;
@@ -484,8 +484,18 @@
$Fnorble1=bless(\do{my$v=usqz('XXX')},'Fnorble');
EXPECT
is($out,$expect,"Optspace");
-}
-
+ $o->Compress(0);
+}
+{
+ my $h={'-'=>1,'-1efg'=>1};
+ same( "'-' hashkeys", $o, <<'EXPECT', ( $h ) );
+$HASH1={
+ "-1efg"=>1,
+ "-" =>1
+ };
+EXPECT
+
+}
__END__
# with eval testing
{
More information about the Pkg-perl-cvs-commits
mailing list