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

1 files changed, 7 insertions, 1 deletions

diff --git a/t/run/switchC.t b/t/run/switchC.t
index 4f63c3b141..6583010551 100644
--- a/t/run/switchC.t
+++ b/t/run/switchC.t
@@ -11,7 +11,7 @@ BEGIN {
     skip_all_if_miniperl('-C and $ENV{PERL_UNICODE} are disabled on miniperl');
 }
 
-plan(tests => 14);
+plan(tests => 15);
 
 my $r;
 
@@ -111,3 +111,9 @@ SKIP: {
     like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s,
           '#!perl -C but not command line' );
 }
+
+$r = runperl ( switches => [ '-C00' ],
+               prog    => '1',
+               stderr   => 1, );
+like($r, qr/^Invalid number '00' for -C option\.$/s,
+     "perl -C00 [perl #123991]");