Revise check for negative versions plus test

Author: John Peacock

lib/version.pm

@@ -6,7 +6,7 @@ use strict;
 
 use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
 
-$VERSION = 0.88;
+$VERSION = 0.92;
 
 $CLASS = 'version';
 

lib/version.t

@@ -213,6 +213,10 @@ sub BaseTests {
     like($@, qr/non-numeric data/,
 	"Invalid version format (non-numeric data)");
 
+    eval { $version = $CLASS->$method("-1.23")};
+    like($@, qr/negative version number/,
+	"Invalid version format (negative version number)");
+
     # from here on out capture the warning and test independently
     {
     eval{$version = $CLASS->$method("99 and 44/100 pure")};

util.c

@@ -4541,6 +4541,11 @@ Perl_prescan_version(pTHX_ const char *s, bool strict,
 	    }
 	}
 
+	/* and we never support negative versions */
+	if ( *d == '-') {
+		BADVERSION(s,errstr,"Invalid version format (negative version number)");                
+	}
+
 	/* consume all of the integer part */
 	while (isDIGIT(*d))
 	    d++;
@@ -4559,9 +4564,6 @@ Perl_prescan_version(pTHX_ const char *s, bool strict,
 	    /* found just an integer */
 	    goto version_prescan_finish;
 	}
-	else if ( *d == '-') {
-		BADVERSION(s,errstr,"Invalid version format (negative version number)");                
-	}
 	else if ( d == s ) {
 	    /* didn't find either integer or period */
 	    BADVERSION(s,errstr,"Invalid version format (non-numeric data)");