From: Ken Williams <ken@mathforum.org>
Date: Thu, 21 Aug 2003 22:47:51 +0000 (-0500)
Subject: minor File::Spec testing cleanup
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d7f1a795527ad4875d71a2e977851f754d4b7b3f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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>;