Author: REHSACK
Date: Tue May 25 05:39:07 2010
New Revision: 14035
Modified:
dbi/trunk/lib/DBD/File.pm
Log:
Fixing trunctate method (thanks to Tux)
Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm (original)
+++ dbi/trunk/lib/DBD/File.pm Tue May 25 05:39:07 2010
@@ -912,8 +912,9 @@
sub truncate ($$)
{
my ($self, $data) = @_;
- $self->{fh}->truncate ($self->{fh}->tell ()) or
- croak "Error while truncating " . $self->{meta}->{f_fqfn} . ": $!";
+ my $meta = $self->{meta};
+ $meta->{fh}->truncate ($meta->{fh}->tell ()) or
+ croak "Error while truncating " . $meta->{f_fqfn} . ": $!";
return 1;
} # truncate
