minor File::Spec testing cleanup

Message-Id: <67C30B63-D453-11D7-8495-003065F6D85A@mathforum.org>

p4raw-id: //depot/perl@20908

diff --git a/lib/File/Spec/t/rel2abs2rel.t b/lib/File/Spec/t/rel2abs2rel.t
index 79119e0..7af1042 100644 (file)
--- 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>;