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

[kwilliams]

Author: kwilliams
Date: Sat Mar 24 19:17:52 2007
New Revision: 9326

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

Log:
Upgrade to version.pm 0.71

Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Sat Mar 24 19:17:52 2007
@@ -1,5 +1,9 @@
 Revision history for Perl extension Module::Build.
 
+ - Upgraded to version.pm 0.71. [John Peacock]
+
+0.2806 - Sat Mar 24 15:57:17 2007
+
  - Upgraded to version.pm 0.70. [John Peacock]
 
  - Removed a couple small constructs in the tests ("use warnings;" and

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      Sat Mar 24 19:17:52 2007
@@ -94,7 +94,7 @@
 
 use locale;
 use vars qw ($VERSION @ISA @REGEXS);
-$VERSION = "0.70";
+$VERSION = 0.71;
 
 push @REGEXS, qr/
        ^v?     # optional leading 'v'
@@ -499,6 +499,12 @@
     return version->new($value); # always use base class
 }
 
+sub is_qv {
+    my ($self) = @_;
+    return (exists $self->{qv});
+}
+
+
 sub _verify {
     my ($self) = @_;
     if ( ref($self)
@@ -568,12 +574,20 @@
 
            if ( $req > $version ) {
                require Carp;
-               Carp::croak( 
-                   sprintf ("%s version %s (%s) required--".
-                   "this is only version %s (%s)", $class, 
-                   $req->numify, $req->normal,
-                   $version->numify, $version->normal)
-               );
+               if ( $req->is_qv ) {
+                   Carp::croak( 
+                       sprintf ("%s version %s required--".
+                           "this is only version %s", $class,
+                           $req->normal, $version->normal)
+                   );
+               }
+               else {
+                   Carp::croak( 
+                       sprintf ("%s version %s required--".
+                           "this is only version %s", $class,
+                           $req->numify, $version->numify)
+                   );
+               }
            }
        }