Allow -C on the #! line when it is identical to -C on the command line.

Change from dieing whenever -C is seen on the #! line, to dieing only when it
differs from that on the command line, or was not specified on the command line.

1 files changed, 5 insertions, 1 deletions

diff --git a/t/run/switchC.t b/t/run/switchC.t
index 41dba4988f..9e52ad3517 100644
--- a/t/run/switchC.t
+++ b/t/run/switchC.t
@@ -13,7 +13,7 @@ BEGIN {
 
 BEGIN { require "./test.pl"; }
 
-plan(tests => 6);
+plan(tests => 7);
 
 my $r;
 
@@ -59,3 +59,7 @@ $r = runperl( switches => [ '-CA', '-w' ],
               args     => [ chr(256) ] );
 like( $r, qr/^256(?:\r?\n)?$/s, '-CA: @ARGV' );
 
+$r = runperl( switches => [ '-CS', '-w' ],
+	      prog     => "#!perl -CS\nprint chr(256)",
+              stderr   => 1, );
+like( $r, qr/^$b(?:\r?\n)?$/s, '#!perl -C' );