X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/4899916ae02f106df163459798ebe3b2a863afb6..f39335f980be44f86fada26f29f9aa7e50e2e686:/util.c

diff --git a/util.c b/util.c
index 318c965..093b70e 100644
--- a/util.c
+++ b/util.c
@@ -4494,6 +4494,9 @@ dotted_decimal_version:
 	    /* 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)");