Author: REHSACK
Date: Tue May 25 06:55:55 2010
New Revision: 14036
Modified:
dbi/trunk/lib/DBD/File.pm
Log:
Add supposed fix for DBD::CSV and similar derivates
Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm (original)
+++ dbi/trunk/lib/DBD/File.pm Tue May 25 06:55:55 2010
@@ -898,15 +898,16 @@
sub seek ($$$$)
{
my ($self, $data, $pos, $whence) = @_;
+ my $meta = $self->{meta};
if ($whence == 0 && $pos == 0) {
- $pos = defined $self->{first_row_pos} ? $self->{first_row_pos} : 0;
+ $pos = defined $meta->{first_row_pos} ? $meta->{first_row_pos} : 0;
}
elsif ($whence != 2 || $pos != 0) {
croak "Illegal seek position: pos = $pos, whence = $whence";
}
- $self->{meta}->{fh}->seek ($pos, $whence) or
- croak "Error while seeking in " . $self->{meta}->{f_fqfn} . ": $!";
+ $meta->{fh}->seek ($pos, $whence) or
+ croak "Error while seeking in " . $meta->{f_fqfn} . ": $!";
} # seek
sub truncate ($$)
