Report a better error when trying to use negative version numbers instead of 'Invalid...

[perl5.git] / util.c

diff --git a/util.c b/util.c
index 318c965..093b70e 100644 (file)
--- a/util.c
+++ b/util.c
@@ -4494,6 +4494,9 @@ dotted_decimal_version:
            /* found just an integer */
            goto version_prescan_finish;
        }
            /* 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)");
        else if ( d == s ) {
            /* didn't find either integer or period */
            BADVERSION(s,errstr,"Invalid version format (non-numeric data)");