r11503 - in /trunk/libdata-dump-streamer-perl: .patch Changes META.yml Streamer.xs debian/changelog debian/control 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:24:40 UTC 2007
Author: tincho-guest
Date: Sun Dec 23 12:24:39 2007
New Revision: 11503
URL: http://svn.debian.org/wsvn/?sc=1&rev=11503
Log:
* New upstream release.
* debian/control:
- Bumped Standards-Version (no changes needed).
- Added libpadwalker-perl as Recommends.
Modified:
trunk/libdata-dump-streamer-perl/.patch
trunk/libdata-dump-streamer-perl/Changes
trunk/libdata-dump-streamer-perl/META.yml
trunk/libdata-dump-streamer-perl/Streamer.xs
trunk/libdata-dump-streamer-perl/debian/changelog
trunk/libdata-dump-streamer-perl/debian/control
trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.pm
trunk/libdata-dump-streamer-perl/t/dump.t
Modified: trunk/libdata-dump-streamer-perl/.patch
URL: http://svn.debian.org/wsvn/trunk/libdata-dump-streamer-perl/.patch?rev=11503&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/.patch (original)
+++ trunk/libdata-dump-streamer-perl/.patch Sun Dec 23 12:24:39 2007
@@ -1,1 +1,1 @@
-36
+40
Modified: trunk/libdata-dump-streamer-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libdata-dump-streamer-perl/Changes?rev=11503&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/Changes (original)
+++ trunk/libdata-dump-streamer-perl/Changes Sun Dec 23 12:24:39 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: trunk/libdata-dump-streamer-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libdata-dump-streamer-perl/META.yml?rev=11503&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/META.yml (original)
+++ trunk/libdata-dump-streamer-perl/META.yml Sun Dec 23 12:24:39 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: trunk/libdata-dump-streamer-perl/Streamer.xs
URL: http://svn.debian.org/wsvn/trunk/libdata-dump-streamer-perl/Streamer.xs?rev=11503&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/Streamer.xs (original)
+++ trunk/libdata-dump-streamer-perl/Streamer.xs Sun Dec 23 12:24:39 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: trunk/libdata-dump-streamer-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libdata-dump-streamer-perl/debian/changelog?rev=11503&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/debian/changelog (original)
+++ trunk/libdata-dump-streamer-perl/debian/changelog Sun Dec 23 12:24:39 2007
@@ -1,11 +1,18 @@
-libdata-dump-streamer-perl (2.05-36-3) UNRELEASED; urgency=low
+libdata-dump-streamer-perl (2.08-40-1) unstable; urgency=low
+ [ gregor herrmann ]
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
field (source stanza); Homepage field (source stanza). Removed: XS-
Vcs-Svn fields.
* debian/watch: use dist-based URL.
- -- gregor herrmann <gregor+debian at comodo.priv.at> Tue, 09 Oct 2007 22:28:31 +0200
+ [ MartÃn Ferrari ]
+ * New upstream release.
+ * debian/control:
+ - Bumped Standards-Version (no changes needed).
+ - Added libpadwalker-perl as Recommends.
+
+ -- MartÃn Ferrari <martin.ferrari at gmail.com> Sun, 23 Dec 2007 09:22:26 -0300
libdata-dump-streamer-perl (2.05-36-2) unstable; urgency=low
Modified: trunk/libdata-dump-streamer-perl/debian/control
URL: http://svn.debian.org/wsvn/trunk/libdata-dump-streamer-perl/debian/control?rev=11503&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/debian/control (original)
+++ trunk/libdata-dump-streamer-perl/debian/control Sun Dec 23 12:24:39 2007
@@ -2,11 +2,11 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 5.0.0), perl (>= 5.8.8-7), libb-utils-perl,
- perl-modules, libpadwalker-perl, libcompress-zlib-perl, libmime-perl
+ perl-modules, libpadwalker-perl (>= 1.0), libcompress-zlib-perl, libmime-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Alexis Sukrieh <sukria at debian.org>,
Damyan Ivanov <dmn at debian.org>, Gunnar Wolf <gwolf at debian.org>
-Standards-Version: 3.7.2
+Standards-Version: 3.7.3
Homepage: http://search.cpan.org/dist/Data-Dump-Streamer/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdata-dump-streamer-perl/
Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-streamer-perl/
@@ -14,6 +14,7 @@
Package: libdata-dump-streamer-perl
Architecture: any
Depends: ${perl:Depends}, ${shlibs:Depends}, ${misc:Depends}, libb-utils-perl, perl-modules
+Recommends: libpadwalker-perl (>= 1.0)
Description: Perl module for serializing a data structure as Perl code
Given a list of scalars or reference variables, writes out
their contents in perl syntax. The references can also be
Modified: trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.pm
URL: http://svn.debian.org/wsvn/trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.pm?rev=11503&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.pm (original)
+++ trunk/libdata-dump-streamer-perl/lib/Data/Dump/Streamer.pm Sun Dec 23 12:24:39 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: trunk/libdata-dump-streamer-perl/t/dump.t
URL: http://svn.debian.org/wsvn/trunk/libdata-dump-streamer-perl/t/dump.t?rev=11503&op=diff
==============================================================================
--- trunk/libdata-dump-streamer-perl/t/dump.t (original)
+++ trunk/libdata-dump-streamer-perl/t/dump.t Sun Dec 23 12:24:39 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