Change 18562 by jhi@kosh on 2003/01/22 17:59:44
Integrate:
[ 18536]
Allow explicit -C enable/disable by -C:1/-C:0
(suggested by Peter Haworth).
(accept mainline's perlrun since somehow maint has gotten of sync)
Affected files ...
... //depot/maint-5.8/perl/perl.c#12 integrate
... //depot/maint-5.8/perl/pod/perlrun.pod#7 integrate
Differences ...
==== //depot/maint-5.8/perl/perl.c#12 (text) ====
Index: perl/perl.c
--- perl/perl.c#11~18535~ Mon Jan 20 18:49:55 2003
+++ perl/perl.c Wed Jan 22 09:59:44 2003
@@ -2306,6 +2306,10 @@
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;
End of Patch.
