This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
actually handle the case of extensions being built statically
[perl5.git]
/
toke.c
diff --git
a/toke.c
b/toke.c
index
17152e5
..
8dadf61
100644
(file)
--- a/
toke.c
+++ b/
toke.c
@@
-3363,7
+3363,7
@@
S_scan_const(pTHX_ char *start)
case 'c':
s++;
if (s < send) {
- *d++ = grok_bslash_c(*s++, 1);
+ *d++ = grok_bslash_c(*s++,
has_utf8,
1);
}
else {
yyerror("Missing control char name in \\c");