Upgrade to version-0.52

[perl5.git] / util.c

diff --git a/util.c b/util.c
index 881287b..48cc63a 100644 (file)
--- a/util.c
+++ b/util.c
@@ -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 */