projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
const declaration fixup
[p5sagit/p5-mst-13.2.git]
/
perl.c
diff --git
a/perl.c
b/perl.c
index
0abde46
..
6c2c366
100644
(file)
--- 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;