diff options
| -rw-r--r-- | lib/Tie/File.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Tie/File.pm b/lib/Tie/File.pm index 43fd1d6727..a47868868f 100644 --- a/lib/Tie/File.pm +++ b/lib/Tie/File.pm @@ -670,7 +670,7 @@ sub _upcopy { my $fh = $self->{fh}; $self->_seekb($spos); - my $bytes_read = read $fh, my $data, $readsize; + my $bytes_read = read $fh, my($data), $readsize; $self->_seekb($dpos); if ($data eq "") { $self->_chop_file; @@ -696,7 +696,7 @@ sub _downcopy { my $readsize = ! defined($len) ? $blocksize : $len > $blocksize? $blocksize : $len; $self->_seekb($pos); - read $fh, my $old, $readsize; + read $fh, my($old), $readsize; $data .= $old; $self->_seekb($pos); my $writable = substr($data, 0, $readsize, ""); |