diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2003-05-13 13:08:47 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2003-05-13 13:08:47 +0000 |
| commit | e0cf91d56b571fae04d6e52c0045b5e6dc4f5eae (patch) | |
| tree | 7f22a7728fcb385dc24472abfc93bd5756515eca /lib/Tie/File | |
| parent | 7e0017d3b6ac1a9bfee873d050999f77952fb701 (diff) | |
| download | perl-e0cf91d56b571fae04d6e52c0045b5e6dc4f5eae.tar.gz | |
the \do {local *FH} trick in Tie::File was really only needed
on 5.005 and earlier, since later versions can autovivify
the handle
however, a search in the p5p archives reveals the trick doesn't
fully work in the versions it is needed in, so use the more
standard Symbol::gensym() way
p4raw-id: //depot/perl@19511
Diffstat (limited to 'lib/Tie/File')
| -rw-r--r-- | lib/Tie/File/t/09_gen_rs.t | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/lib/Tie/File/t/09_gen_rs.t b/lib/Tie/File/t/09_gen_rs.t index 1b02a84f6d..7d70e3e528 100644 --- a/lib/Tie/File/t/09_gen_rs.t +++ b/lib/Tie/File/t/09_gen_rs.t @@ -105,13 +105,6 @@ if (setup_badly_terminated_file(3)) { push @a, "next"; check_contents($badrec, "next"); } -use Config; -if ($Config{usethreads}) { - for (51..58) { - print "not ok $_ # TODO - premature close() -> _seek() failure\n"; - } - exit 0; -} # (51-52) if (setup_badly_terminated_file(2)) { $o = tie @a, 'Tie::File', $file, |