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
toke.c: Remove soon-to-be invalid t assumption
[perl5.git]
/
dquote.c
diff --git
a/dquote.c
b/dquote.c
index
42864d4
..
895f17d
100644
(file)
--- a/
dquote.c
+++ b/
dquote.c
@@
-158,10
+158,6
@@
Perl_grok_bslash_o(pTHX_ char **s, UV *uv, const char** error_msg,
/* Return past the '}' */
*s = e + 1;
- /* guarantee replacing "\o{...}" with utf8 bytes fits within
- * existing space */
- assert(UVCHR_SKIP(*uv) < *s - start);
-
return TRUE;
}