diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-12-22 23:43:22 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-12-22 23:43:22 +0000 |
| commit | 56ee885b9944afc79979dedcca0d92dab5eefc3f (patch) | |
| tree | 65501ec3ef484d5445eed9618d10795cc97886be /lib/Tie/File.pm | |
| parent | 6d7fb585cd8ad83f4523191641999603aa48eb76 (diff) | |
| download | perl-56ee885b9944afc79979dedcca0d92dab5eefc3f.tar.gz | |
Missing ; in Tie::File
p4raw-id: //depot/perl@26454
Diffstat (limited to 'lib/Tie/File.pm')
| -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 2f247c3c81..dfd86cd1de 100644 --- a/lib/Tie/File.pm +++ b/lib/Tie/File.pm @@ -7,7 +7,7 @@ use Fcntl 'O_CREAT', 'O_RDWR', 'LOCK_EX', 'LOCK_SH', 'O_WRONLY', 'O_RDONLY'; sub O_ACCMODE () { O_RDONLY | O_RDWR | O_WRONLY } -$VERSION = "0.97"; +$VERSION = "0.97_01"; my $DEFAULT_MEMORY_SIZE = 1<<21; # 2 megabytes my $DEFAULT_AUTODEFER_THRESHHOLD = 3; # 3 records my $DEFAULT_AUTODEFER_FILELEN_THRESHHOLD = 65536; # 16 disk blocksful @@ -93,7 +93,7 @@ sub TIEARRAY { unless (seek $file, 1, SEEK_SET) { croak "$pack: your filehandle does not appear to be seekable"; } - seek $file, 0, SEEK_SET # put it back + seek $file, 0, SEEK_SET; # put it back $fh = $file; # setting binmode is the user's problem } elsif (ref $file) { croak "usage: tie \@array, $pack, filename, [option => value]..."; |