projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Re: [perl #32687] Encode::is_utf8 on tainted UTF8 string
[p5sagit/p5-mst-13.2.git]
/
perly.y
diff --git
a/perly.y
b/perly.y
index
2abf7a1
..
9ca64a8
100644
(file)
--- a/
perly.y
+++ b/
perly.y
@@
-391,7
+391,7
@@
loop : label WHILE '(' remember texpr ')' mintro mblock cont
forop = newUNOP(OP_NULL, 0, append_elem(OP_LINESEQ,
newSTATEOP(0,
CopLABEL_alloc(($1)->tk_lval.pval),
- ($5 ? newOP(OP_NULL, 0) : $5) ),
+ ($5 ? $5 : newOP(OP_NULL, 0)) ),
forop));
token_getmad($2,forop,'3');