r8585 - in /branches/upstream/libversion-perl/current: Changes META.yml lib/version.pm t/coretests.pm vperl/vpp.pm vutil/lib/version/vxs.pm vutil/vutil.c

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Thu Oct 25 18:20:22 2007
New Revision: 8585

URL: http://svn.debian.org/wsvn/?sc=1&rev=8585
Log:
[svn-upgrade] Integrating new upstream version, libversion-perl (1:0.7400)

Modified:
    branches/upstream/libversion-perl/current/Changes
    branches/upstream/libversion-perl/current/META.yml
    branches/upstream/libversion-perl/current/lib/version.pm
    branches/upstream/libversion-perl/current/t/coretests.pm
    branches/upstream/libversion-perl/current/vperl/vpp.pm
    branches/upstream/libversion-perl/current/vutil/lib/version/vxs.pm
    branches/upstream/libversion-perl/current/vutil/vutil.c

Modified: branches/upstream/libversion-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libversion-perl/current/Changes?rev=8585&op=diff
==============================================================================
--- branches/upstream/libversion-perl/current/Changes (original)
+++ branches/upstream/libversion-perl/current/Changes Thu Oct 25 18:20:22 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: branches/upstream/libversion-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libversion-perl/current/META.yml?rev=8585&op=diff
==============================================================================
--- branches/upstream/libversion-perl/current/META.yml (original)
+++ branches/upstream/libversion-perl/current/META.yml Thu Oct 25 18:20:22 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: branches/upstream/libversion-perl/current/lib/version.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libversion-perl/current/lib/version.pm?rev=8585&op=diff
==============================================================================
--- branches/upstream/libversion-perl/current/lib/version.pm (original)
+++ branches/upstream/libversion-perl/current/lib/version.pm Thu Oct 25 18:20:22 2007
@@ -6,7 +6,7 @@
 
 use vars qw(@ISA $VERSION $CLASS *qv);
 
-$VERSION = 0.73;
+$VERSION = 0.74;
 
 $CLASS = 'version';
 

Modified: branches/upstream/libversion-perl/current/t/coretests.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libversion-perl/current/t/coretests.pm?rev=8585&op=diff
==============================================================================
--- branches/upstream/libversion-perl/current/t/coretests.pm (original)
+++ branches/upstream/libversion-perl/current/t/coretests.pm Thu Oct 25 18:20:22 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: branches/upstream/libversion-perl/current/vperl/vpp.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libversion-perl/current/vperl/vpp.pm?rev=8585&op=diff
==============================================================================
--- branches/upstream/libversion-perl/current/vperl/vpp.pm (original)
+++ branches/upstream/libversion-perl/current/vperl/vpp.pm Thu Oct 25 18:20:22 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: branches/upstream/libversion-perl/current/vutil/lib/version/vxs.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libversion-perl/current/vutil/lib/version/vxs.pm?rev=8585&op=diff
==============================================================================
--- branches/upstream/libversion-perl/current/vutil/lib/version/vxs.pm (original)
+++ branches/upstream/libversion-perl/current/vutil/lib/version/vxs.pm Thu Oct 25 18:20:22 2007
@@ -9,7 +9,7 @@
 
 @ISA = qw(DynaLoader);
 
-$VERSION = 0.73;
+$VERSION = 0.74;
 
 $CLASS = 'version::vxs';
 

Modified: branches/upstream/libversion-perl/current/vutil/vutil.c
URL: http://svn.debian.org/wsvn/branches/upstream/libversion-perl/current/vutil/vutil.c?rev=8585&op=diff
==============================================================================
--- branches/upstream/libversion-perl/current/vutil/vutil.c (original)
+++ branches/upstream/libversion-perl/current/vutil/vutil.c Thu Oct 25 18:20:22 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 ) )
 	{