diff options
| author | Ken Williams <ken@mathforum.org> | 2003-08-21 17:47:51 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-08-26 18:40:50 +0000 |
| commit | d7f1a795527ad4875d71a2e977851f754d4b7b3f (patch) | |
| tree | abbd7a61d2953bd415062d8e6c79a9431b6db728 /lib/File | |
| parent | f94e5462ce9233ce82cf4bd799d5d17cf8660e86 (diff) | |
| download | perl-d7f1a795527ad4875d71a2e977851f754d4b7b3f.tar.gz | |
minor File::Spec testing cleanup
Message-Id: <67C30B63-D453-11D7-8495-003065F6D85A@mathforum.org>
p4raw-id: //depot/perl@20908
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Spec/t/rel2abs2rel.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/File/Spec/t/rel2abs2rel.t b/lib/File/Spec/t/rel2abs2rel.t index 79119e01e9..7af1042c0b 100644 --- a/lib/File/Spec/t/rel2abs2rel.t +++ b/lib/File/Spec/t/rel2abs2rel.t @@ -9,6 +9,7 @@ use Test::More (-x $^X ); BEGIN { # Set up a tiny script file + local *F; open(F, ">rel2abs2rel$$.pl") or die "Can't open rel2abs2rel$$.pl file for script -- $!\n"; print F qq(print "ok\\n"\n); @@ -43,6 +44,8 @@ sub sayok{ system($perl, "rel2abs2rel$$.pl"); open(STDOUT, '>&STDOUTDUP'); close(STDOUTDUP); + + local *F; open(F, "rel2abs2rel$$.tmp"); local $/ = undef; my $output = <F>; |