diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-31 21:42:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-31 21:42:12 +0000 |
| commit | d5201bd266fe42b2df8b480183c08be291a1ad06 (patch) | |
| tree | e7f719e75b91b93f6b813831b273f6d3dca6c15e /lib/Tie | |
| parent | 83943eac2433a9cd52f114532df2a61529f109a2 (diff) | |
| download | perl-d5201bd266fe42b2df8b480183c08be291a1ad06.tar.gz | |
Integrate macperl patches #16926 and #16938;
Big MacPerl Testing Patch No. 2
Big MacPerl Testing Patch No. 3
p4raw-id: //depot/perl@16942
p4raw-integrated: from //depot/macperl@16937 'copy in'
lib/Devel/SelfStubber.pm lib/Devel/SelfStubber.t
lib/File/DosGlob.t lib/File/Path.t lib/File/Spec/t/Spec.t
lib/File/Temp.pm lib/FindBin.t lib/Tie/File/t/09_gen_rs.t
lib/lib.t t/comp/use.t utils/dprofpp.PL utils/splain.PL
(@16123..) t/lib/MakeMaker/Test/Utils.pm (@16230..)
lib/diagnostics.t (@16646..) lib/ExtUtils/t/00setup_dummy.t
lib/ExtUtils/t/Command.t (@16730..) lib/lib_pm.PL (@16926..)
lib/ExtUtils/MM_MacOS.pm lib/Test/Harness/Straps.pm
lib/Test/Harness/t/callback.t
lib/Test/Harness/t/strap-analyze.t
lib/Test/Harness/t/test-harness.t (@16929..)
p4raw-integrated: from //depot/macperl@16926 'merge in' lib/English.t
(@16123..) ext/DynaLoader/DynaLoader_pm.PL (@16868..)
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/File/t/09_gen_rs.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/Tie/File/t/09_gen_rs.t b/lib/Tie/File/t/09_gen_rs.t index 7d70e3e528..c2025563ad 100644 --- a/lib/Tie/File/t/09_gen_rs.t +++ b/lib/Tie/File/t/09_gen_rs.t @@ -104,6 +104,7 @@ if (setup_badly_terminated_file(3)) { $N++; push @a, "next"; check_contents($badrec, "next"); + undef $o; untie @a; } # (51-52) if (setup_badly_terminated_file(2)) { @@ -112,6 +113,7 @@ if (setup_badly_terminated_file(2)) { or die "Couldn't tie file: $!"; splice @a, 1, 0, "x", "y"; check_contents($badrec, "x", "y"); + undef $o; untie @a; } # (53-56) if (setup_badly_terminated_file(4)) { @@ -126,6 +128,7 @@ if (setup_badly_terminated_file(4)) { : "not ok $N \# expected <$badrec>, got <$r[0]>\n"; $N++; check_contents("x", "y"); + undef $o; untie @a; } # (57-58) 20020402 The modifiaction would have failed if $\ were set wrong. @@ -138,6 +141,7 @@ if (setup_badly_terminated_file(2)) { my $z = $a[0]; } check_contents($badrec); + undef $o; untie @a; } sub setup_badly_terminated_file { |