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 lex_stuff_pvn(): Use fcn, not handrolled code
[perl5.git]
/
taint.c
diff --git
a/taint.c
b/taint.c
index
1b78928
..
ae0c2c9
100644
(file)
--- a/
taint.c
+++ b/
taint.c
@@
-122,7
+122,7
@@
Perl_taint_env(pTHX)
while (1) {
MAGIC* mg;
if (i)
- len = my_s
printf(name,
"DCL$PATH;%d", i);
+ len = my_s
nprintf(name, sizeof name,
"DCL$PATH;%d", i);
svp = hv_fetch(GvHVn(PL_envgv), name, len, FALSE);
if (!svp || *svp == &PL_sv_undef)
break;