diff options
author | Claes Jakobsson <claes@versed.se> | 2011-06-30 22:09:13 +0200 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-06-30 19:27:37 -0700 |
commit | f39335f980be44f86fada26f29f9aa7e50e2e686 (patch) | |
tree | b9b55aee28d7de2eb038349281bb2fd63290fd08 /util.c | |
parent | 4899916ae02f106df163459798ebe3b2a863afb6 (diff) | |
download | perl-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.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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)"); |