[perl #123991] report an error if we can't parse the number after -C

1 files changed, 3 insertions, 0 deletions

diff --git a/util.c b/util.c
index aeec4c08c7..17b62dda76 100644
--- a/util.c
+++ b/util.c
@@ -4538,6 +4538,9 @@ Perl_parse_unicode_opts(pTHX_ const char **popt)
                         Perl_croak(aTHX_ "Unknown Unicode option letter '%c'", *p);
                 }
             }
+            else {
+                Perl_croak(aTHX_ "Invalid number '%s' for -C option.\n", p);
+            }
         }
         else {
 	    for (; *p; p++) {