From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 8 May 2003 17:47:13 +0000 (+0000)
Subject: Tiny nit from mjd.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=86e5a81e88dbe10bf1c195d6ca6fefab8bfafc17;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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, "");