diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-22 08:37:17 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-22 08:37:17 +0000 |
| commit | 0ec158f4b0db050abb15876df15f5f883540cfd9 (patch) | |
| tree | 65a29c8748f938194d687e43d98d4720da79686d /lib/Tie | |
| parent | 139cf11b10fe82ec7be04ae7d145dc452057d38b (diff) | |
| download | perl-0ec158f4b0db050abb15876df15f5f883540cfd9.tar.gz | |
clean up after stray test file littering
NOTE: PerlIO/t/via.t leaves behind a via$$ file on windows when
it seems that it shouldn't (looks like a handle leak in PerlIO
to me)
p4raw-id: //depot/perl@16065
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/File/t/31_autodefer.t | 2 | ||||
| -rw-r--r-- | lib/Tie/File/t/32_defer_misc.t | 2 | ||||
| -rw-r--r-- | lib/Tie/File/t/33_defer_vs.t | 2 |
3 files changed, 6 insertions, 0 deletions
diff --git a/lib/Tie/File/t/31_autodefer.t b/lib/Tie/File/t/31_autodefer.t index 53371c0138..ea929a4097 100644 --- a/lib/Tie/File/t/31_autodefer.t +++ b/lib/Tie/File/t/31_autodefer.t @@ -175,6 +175,8 @@ sub ctrlfix { } END { + undef $o; + untie @a; 1 while unlink $file; } diff --git a/lib/Tie/File/t/32_defer_misc.t b/lib/Tie/File/t/32_defer_misc.t index 5193cf0ca3..e0e3f15bb8 100644 --- a/lib/Tie/File/t/32_defer_misc.t +++ b/lib/Tie/File/t/32_defer_misc.t @@ -225,6 +225,8 @@ sub ctrlfix { } END { + undef $o; + untie @a; 1 while unlink $file; } diff --git a/lib/Tie/File/t/33_defer_vs.t b/lib/Tie/File/t/33_defer_vs.t index 69f32a6284..071af77a68 100644 --- a/lib/Tie/File/t/33_defer_vs.t +++ b/lib/Tie/File/t/33_defer_vs.t @@ -118,6 +118,8 @@ sub ctrlfix { } END { + undef $o; + untie @a; 1 while unlink $file; } |