diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-01-17 12:00:23 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-01-17 12:00:23 +0000 |
| commit | 06eaf0bc49fea082c8b8358680815d807a7a925e (patch) | |
| tree | f4d9a1a3a6f0ef0ce15edc648b1335e1a3012c04 /t/op/taint.t | |
| parent | a81cd81f8e04bbc8bb5b6ca8cd8516f6206c6912 (diff) | |
| download | perl-06eaf0bc49fea082c8b8358680815d807a7a925e.tar.gz | |
sanity check piped opens (tweaked version of patch suggested
by Mark-Jason Dominus)
p4raw-id: //depot/perl@2629
Diffstat (limited to 't/op/taint.t')
| -rwxr-xr-x | t/op/taint.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index 379093f587..e77d5d1a04 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -383,10 +383,10 @@ else { for (76..79) { print "ok $_ # Skipped: open('|') is not available\n" } } else { - test 76, eval { open FOO, "| $foo" } eq '', 'popen to'; + test 76, eval { open FOO, "| x$foo" } eq '', 'popen to'; test 77, $@ =~ /^Insecure dependency/, $@; - test 78, eval { open FOO, "$foo |" } eq '', 'popen from'; + test 78, eval { open FOO, "x$foo |" } eq '', 'popen from'; test 79, $@ =~ /^Insecure dependency/, $@; } |