diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-01-06 21:59:00 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-01-06 21:59:00 +0000 |
| commit | 34ba6322b644154d55680c95808981776852ae24 (patch) | |
| tree | aabe0a4ab0822979a1d0ba9134c969c4c9f52a53 /util.c | |
| parent | 29ecdb6fa31693daf50c1386a8ec5d92fb7b0313 (diff) | |
| download | perl-34ba6322b644154d55680c95808981776852ae24.tar.gz | |
Upgrade to version-0.52
p4raw-id: //depot/perl@26685
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -4031,6 +4031,9 @@ Perl_scan_version(pTHX_ const char *s, SV *rv, bool qv) pos++; } + if ( alpha && !saw_period ) + Perl_croak(aTHX_ "Invalid version format (alpha without decimal)"); + if ( saw_period > 1 ) qv = 1; /* force quoted version processing */ |