From 817e3e2c67db64af99b44c781b75ef9f01fc619a Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Thu, 26 Nov 2015 11:18:52 +1100
Subject: [perl #123991] report an error if we can't parse the number after -C

---
 util.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'util.c')

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++) {
-- 
cgit v1.2.1