summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorClaes Jakobsson <claes@versed.se>2011-06-30 22:09:13 +0200
committerFather Chrysostomos <sprout@cpan.org>2011-06-30 19:27:37 -0700
commitf39335f980be44f86fada26f29f9aa7e50e2e686 (patch)
treeb9b55aee28d7de2eb038349281bb2fd63290fd08 /util.c
parent4899916ae02f106df163459798ebe3b2a863afb6 (diff)
downloadperl-f39335f980be44f86fada26f29f9aa7e50e2e686.tar.gz
Report a better error when trying to use negative version numbers instead of 'Invalid version format (non-numeric data)' as it currently does. Also update documentation that version should be a positive number.
Diffstat (limited to 'util.c')
-rw-r--r--util.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/util.c b/util.c
index 318c965334..093b70e62a 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)");