r8587 - in /trunk/libversion-perl: Changes META.yml debian/changelog lib/version.pm t/coretests.pm vperl/vpp.pm vutil/lib/version/vxs.pm vutil/vutil.c
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Thu Oct 25 18:22:30 UTC 2007
Author: gregoa-guest
Date: Thu Oct 25 18:22:30 2007
New Revision: 8587
URL: http://svn.debian.org/wsvn/?sc=1&rev=8587
Log:
New upstream release.
Modified:
trunk/libversion-perl/Changes
trunk/libversion-perl/META.yml
trunk/libversion-perl/debian/changelog
trunk/libversion-perl/lib/version.pm
trunk/libversion-perl/t/coretests.pm
trunk/libversion-perl/vperl/vpp.pm
trunk/libversion-perl/vutil/lib/version/vxs.pm
trunk/libversion-perl/vutil/vutil.c
Modified: trunk/libversion-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libversion-perl/Changes?rev=8587&op=diff
==============================================================================
--- trunk/libversion-perl/Changes (original)
+++ trunk/libversion-perl/Changes Thu Oct 25 18:22:30 2007
@@ -1,3 +1,13 @@
+2007-10-24 John Peacock <jpeacock at cpan.org>
+
+ Data::Dumper is sometimes too clever for its (and our) own good.
+ When copying an existing version object, directly set newSViv
+ instead of using &PL_sv_yes, since the latter has a PV slot which
+ looks shared to D::D's jaundiced eye.
+
+ Resolves:
+ http://rt.cpan.org/Public/Bug/Display.html?id=30004
+
2007-09-20 John Peacock <jpeacock at cpan.org>
New code to handle versions too large to fit into an IV slot.
Modified: trunk/libversion-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libversion-perl/META.yml?rev=8587&op=diff
==============================================================================
--- trunk/libversion-perl/META.yml (original)
+++ trunk/libversion-perl/META.yml Thu Oct 25 18:22:30 2007
@@ -1,6 +1,6 @@
---
name: version
-version: 0.73
+version: 0.74
author:
- 'John Peacock E<lt>jpeacock at cpan.orgE<gt>'
abstract: Perl extension for Version Objects
@@ -13,10 +13,10 @@
provides:
version:
file: lib/version.pm
- version: 0.73
+ version: 0.74
version::vxs:
file: vutil/lib/version/vxs.pm
- version: 0.73
+ version: 0.74
generated_by: Module::Build version 0.2808
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
Modified: trunk/libversion-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libversion-perl/debian/changelog?rev=8587&op=diff
==============================================================================
--- trunk/libversion-perl/debian/changelog (original)
+++ trunk/libversion-perl/debian/changelog Thu Oct 25 18:22:30 2007
@@ -1,10 +1,11 @@
-libversion-perl (1:0.7300-2) UNRELEASED; urgency=low
+libversion-perl (1:0.7400-1) UNRELEASED; urgency=low
+ * New upstream release.
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
field (source stanza); Homepage field (source stanza). Removed: XS-
Vcs-Svn fields.
- -- gregor herrmann <gregor+debian at comodo.priv.at> Tue, 09 Oct 2007 22:33:10 +0200
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Thu, 25 Oct 2007 20:21:29 +0200
libversion-perl (1:0.7300-1) unstable; urgency=low
Modified: trunk/libversion-perl/lib/version.pm
URL: http://svn.debian.org/wsvn/trunk/libversion-perl/lib/version.pm?rev=8587&op=diff
==============================================================================
--- trunk/libversion-perl/lib/version.pm (original)
+++ trunk/libversion-perl/lib/version.pm Thu Oct 25 18:22:30 2007
@@ -6,7 +6,7 @@
use vars qw(@ISA $VERSION $CLASS *qv);
-$VERSION = 0.73;
+$VERSION = 0.74;
$CLASS = 'version';
Modified: trunk/libversion-perl/t/coretests.pm
URL: http://svn.debian.org/wsvn/trunk/libversion-perl/t/coretests.pm?rev=8587&op=diff
==============================================================================
--- trunk/libversion-perl/t/coretests.pm (original)
+++ trunk/libversion-perl/t/coretests.pm Thu Oct 25 18:22:30 2007
@@ -2,6 +2,7 @@
package main;
require Test::Harness;
*Verbose = \$Test::Harness::Verbose;
+use Data::Dumper;
sub BaseTests {
@@ -480,6 +481,16 @@
unlike($@, qr/Integer overflow in version/, "Too large version");
like($warning, qr/Integer overflow in version/, "Too large version");
}
+
+ {
+ # http://rt.cpan.org/Public/Bug/Display.html?id=30004
+ my $v1 = $CLASS->new("v0.1_1");
+ (my $alpha1 = Dumper($v1)) =~ s/.+'alpha' => ([^,]+),.+/$1/ms;
+ my $v2 = $CLASS->new($v1);
+ (my $alpha2 = Dumper($v2)) =~ s/.+'alpha' => ([^,]+),.+/$1/ms;
+ is $alpha2, $alpha1, "Don't fall for Data::Dumper's tricks";
+ }
+
}
Modified: trunk/libversion-perl/vperl/vpp.pm
URL: http://svn.debian.org/wsvn/trunk/libversion-perl/vperl/vpp.pm?rev=8587&op=diff
==============================================================================
--- trunk/libversion-perl/vperl/vpp.pm (original)
+++ trunk/libversion-perl/vperl/vpp.pm Thu Oct 25 18:22:30 2007
@@ -3,7 +3,7 @@
use locale;
use vars qw ($VERSION @ISA @REGEXS);
-$VERSION = 0.73;
+$VERSION = 0.74;
push @REGEXS, qr/
^v? # optional leading 'v'
Modified: trunk/libversion-perl/vutil/lib/version/vxs.pm
URL: http://svn.debian.org/wsvn/trunk/libversion-perl/vutil/lib/version/vxs.pm?rev=8587&op=diff
==============================================================================
--- trunk/libversion-perl/vutil/lib/version/vxs.pm (original)
+++ trunk/libversion-perl/vutil/lib/version/vxs.pm Thu Oct 25 18:22:30 2007
@@ -9,7 +9,7 @@
@ISA = qw(DynaLoader);
-$VERSION = 0.73;
+$VERSION = 0.74;
$CLASS = 'version::vxs';
Modified: trunk/libversion-perl/vutil/vutil.c
URL: http://svn.debian.org/wsvn/trunk/libversion-perl/vutil/vutil.c?rev=8587&op=diff
==============================================================================
--- trunk/libversion-perl/vutil/vutil.c (original)
+++ trunk/libversion-perl/vutil/vutil.c Thu Oct 25 18:22:30 2007
@@ -264,10 +264,10 @@
/* Begin copying all of the elements */
if ( hv_exists((HV *)ver, "qv", 2) )
- hv_store((HV *)hv, "qv", 2, &PL_sv_yes, 0);
+ hv_store((HV *)hv, "qv", 2, newSViv(1), 0);
if ( hv_exists((HV *)ver, "alpha", 5) )
- hv_store((HV *)hv, "alpha", 5, &PL_sv_yes, 0);
+ hv_store((HV *)hv, "alpha", 5, newSViv(1), 0);
if ( hv_exists((HV*)ver, "width", 5 ) )
{
More information about the Pkg-perl-cvs-commits
mailing list