[svn:Module-Build] r6777 - in Module-Build/trunk: . lib/Module/Build

[kwilliams]

Author: kwilliams
Date: Tue Aug  8 20:15:32 2006
New Revision: 6777

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/lib/Module/Build/Version.pm

Log:
Upgrade to version 0.67 of version.pm

Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Tue Aug  8 20:15:32 2006
@@ -8,6 +8,8 @@
    now appear as strings like v3.42.1 or similar, including the
    leading v.
 
+ - Upgraded to version 0.67 of version.pm. [John Peacock]
+
 0.2805  Sat Jul 29 22:01:24 CDT 2006
 
  - We now embed a copy of version.pm right in the

Modified: Module-Build/trunk/lib/Module/Build/Version.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Version.pm      (original)
+++ Module-Build/trunk/lib/Module/Build/Version.pm      Tue Aug  8 20:15:32 2006
@@ -94,7 +94,7 @@
 
 use Scalar::Util;
 use vars qw ($VERSION @ISA @REGEXS);
-$VERSION = 0.661;
+$VERSION = 0.67;
 
 push @REGEXS, qr/
        ^v?     # optional leading 'v'
@@ -133,6 +133,12 @@
                $value = $tvalue;
            }
        }
+
+       # exponential notation
+       if ( $value =~ /\d+e-?\d+/ ) {
+           $value = sprintf("%.9f",$value);
+           $value =~ s/(0+)$//;
+       }
        
        # This is not very efficient, but it is morally equivalent
        # to the XS code (as that is the reference implementation).
@@ -453,11 +459,6 @@
 sub qv {
     my ($value) = @_;
 
-    if ( $value =~ /\d+e-?\d+/ ) { # exponential notation
-       $value = sprintf("%.9f",$value);
-       $value =~ s/(0+)//;
-    }
-
     my $eval = eval 'Scalar::Util::isvstring($value)';
     if ( !$@ and $eval ) {
        $value = sprintf("v%vd",$value);
@@ -499,10 +500,6 @@
        }
 
        if ( defined $req ) {
-           if ( $req =~ /\d+e-?\d+/ ) { # exponential notation
-               $req = sprintf("%.9f",$req);
-               $req =~ s/(0+)$//;
-           }
            unless ( defined $version ) {
                my $msg =  "$class does not define ".
                           "\$$class\::VERSION--version check failed";