diff options
| author | Martin Hasch <mhasch@cpan.org> | 2006-03-10 12:10:49 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-24 12:15:58 +0000 |
| commit | f27977c3127ab1a3bd087690c418557490be39b2 (patch) | |
| tree | d6381c7fdad086d9a2f2abee28407e2aed2b09f8 /doio.c | |
| parent | ef097d42b8f645b77866f6e17a857c98be228046 (diff) | |
| download | perl-f27977c3127ab1a3bd087690c418557490be39b2.tar.gz | |
[perl #38709] Opening '|-' triggers unjustified taint check
From: mhasch@cpan.org (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-38709-130993.2.89182805885773@perl.org>
p4raw-id: //depot/perl@27951
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -246,7 +246,7 @@ Perl_do_openn(pTHX_ GV *gv, register const char *oname, I32 len, int as_raw, errno = EPIPE; goto say_false; } - if ((*name == '-' && name[1] == '\0') || num_svs) + if (!(*name == '-' && name[1] == '\0') || num_svs) TAINT_ENV(); TAINT_PROPER("piped open"); if (!num_svs && name[len-1] == '|') { |