Allow explicit -C enable/disable by -C:1/-C:0

(suggested by Peter Haworth).

p4raw-id: //depot/perl@18536

1 files changed, 4 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 0abde46ef5..6c2c366683 100644
--- a/perl.c
+++ b/perl.c
@@ -2156,6 +2156,10 @@ Perl_moreswitches(pTHX_ char *s)
     case 'C':
         PL_wantutf8 = TRUE; /* Can be set earlier by $ENV{PERL_UTF8_LOCALE}. */
 	s++;
+	if (*s == ':') {
+	     PL_wantutf8 = (bool) atoi(s + 1);
+	     for (s++; isDIGIT(*s); s++) ;
+	}
 	return s;
     case 'F':
 	PL_minus_F = TRUE;