diff options
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/File.pm | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/lib/Tie/File.pm b/lib/Tie/File.pm index 26014dddc8..a47868868f 100644 --- a/lib/Tie/File.pm +++ b/lib/Tie/File.pm @@ -97,7 +97,6 @@ sub TIEARRAY { $fh = \do { local *FH }; # only works in 5.005 and later sysopen $fh, $file, $opts{mode}, 0666 or return; binmode $fh; - ++$opts{ourfh}; } { my $ofh = select $fh; $| = 1; select $ofh } # autoflush on write if (defined $opts{discipline} && $] >= 5.006) { @@ -408,10 +407,6 @@ sub DESTROY { my $self = shift; $self->flush if $self->_is_deferring; $self->{cache}->delink if defined $self->{cache}; # break circular link - if ($self->{fh} and $self->{ourfh}) { - delete $self->{ourfh}; - close delete $self->{fh}; - } } sub _splice { @@ -2294,11 +2289,6 @@ means no pipes or sockets. If C<Tie::File> can detect that you supplied a non-seekable handle, the C<tie> call will throw an exception. (On Unix systems, it can detect this.) -Note that Tie::File will only close any filehandles that it opened -internally. If you passed it a filehandle as above, you "own" the -filehandle, and are responsible for closing it after you have untied -the @array. - =head1 Deferred Writing (This is an advanced feature. Skip this section on first reading.) |