diff options
| author | Bram <p5p@perl.wizbit.be> | 2009-02-16 16:07:19 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-02-16 16:07:19 +0100 |
| commit | 1ab9acc5e047d5b80c252fe3d5e4d905e6367701 (patch) | |
| tree | 6633cf7d936a065f2e3c0a3b5512a65defe483aa /t/op/taint.t | |
| parent | 95bb830374a8a89f7b1a7056c1e3e3c778bfa350 (diff) | |
| download | perl-1ab9acc5e047d5b80c252fe3d5e4d905e6367701.tar.gz | |
Use tempfile() in tests
Diffstat (limited to 't/op/taint.t')
| -rwxr-xr-x | t/op/taint.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index 2dc1bb9883..01ab368607 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -285,7 +285,7 @@ my $TEST = catfile(curdir(), 'TEST'); # How about command-line arguments? The problem is that we don't # always get some, so we'll run another process with some. SKIP: { - my $arg = catfile(curdir(), tempfile()); + my $arg = tempfile(); open PROG, "> $arg" or die "Can't create $arg: $!"; print PROG q{ eval { join('', @ARGV), kill 0 }; |