Tiny nit from mjd.

p4raw-id: //depot/perl@19451

diff --git a/lib/Tie/File.pm b/lib/Tie/File.pm
index 43fd1d6..a478688 100644 (file)
--- 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, "");