r7226 - in /branches/upstream/libparams-classify-perl/current: Changes META.yml lib/Params/Classify.pm t/purity.t

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Wed Sep 5 11:47:14 UTC 2007


Author: dmn
Date: Wed Sep  5 11:47:14 2007
New Revision: 7226

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

Modified:
    branches/upstream/libparams-classify-perl/current/Changes
    branches/upstream/libparams-classify-perl/current/META.yml
    branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm
    branches/upstream/libparams-classify-perl/current/t/purity.t

Modified: branches/upstream/libparams-classify-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-classify-perl/current/Changes?rev=7226&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/Changes (original)
+++ branches/upstream/libparams-classify-perl/current/Changes Wed Sep  5 11:47:14 2007
@@ -1,3 +1,12 @@
+version 0.005; 2007-09-02
+
+  * in t/purity.t, modify purity test on dualvar(0, "0") to operate
+    appropriately on older Perls where this has a different numeric
+    value from 0
+
+  * in t/purity.t, fix a skip count for the case where dualvar() is
+    not available
+
 version 0.004; 2007-08-16
 
   * in t/purity.t, fix a skip count for the case where floating point

Modified: branches/upstream/libparams-classify-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-classify-perl/current/META.yml?rev=7226&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/META.yml (original)
+++ branches/upstream/libparams-classify-perl/current/META.yml Wed Sep  5 11:47:14 2007
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Params-Classify
-version:      0.004
+version:      0.005
 version_from: lib/Params/Classify.pm
 installdirs:  site
 requires:
@@ -9,4 +9,4 @@
     Scalar::Util:                  1.01
 
 distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30_01

Modified: branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm?rev=7226&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm (original)
+++ branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm Wed Sep  5 11:47:14 2007
@@ -56,7 +56,7 @@
 use Exporter;
 use Scalar::Util 1.01 qw(blessed reftype);
 
-our $VERSION = "0.004";
+our $VERSION = "0.005";
 
 our @ISA = qw(Exporter);
 

Modified: branches/upstream/libparams-classify-perl/current/t/purity.t
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-classify-perl/current/t/purity.t?rev=7226&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/t/purity.t (original)
+++ branches/upstream/libparams-classify-perl/current/t/purity.t Wed Sep  5 11:47:14 2007
@@ -41,9 +41,10 @@
 	ok is_pure_number(-0.0);
 	SKIP: {
 		eval { require Scalar::Util };
-		skip "dualvar() not available", 2 if $@ ne "";
-		is !!(sprintf("%+.f", -"0") eq "-0"),
-			!is_pure_string(Scalar::Util::dualvar(0, "0"));
+		skip "dualvar() not available", 3 if $@ ne "";
+		is sprintf("%+.f", -"0") eq
+			    sprintf("%+.f", -Scalar::Util::dualvar(0, "0")),
+			is_pure_string(Scalar::Util::dualvar(0, "0"));
 		is !!(sprintf("%+.f", -"0") eq "-0"),
 			!!is_pure_string(Scalar::Util::dualvar(+0.0, "0"));
 		ok !is_pure_string(Scalar::Util::dualvar(-0.0, "0"));




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