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 | |
| parent | 6d7fb585cd8ad83f4523191641999603aa48eb76 (diff) | |
| download | perl-56ee885b9944afc79979dedcca0d92dab5eefc3f.tar.gz | |
Missing ; in Tie::File
p4raw-id: //depot/perl@26454
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/File.pm | 4 | ||||
| -rw-r--r-- | lib/Tie/File/t/00_version.t | 2 |
2 files changed, 3 insertions, 3 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]..."; diff --git a/lib/Tie/File/t/00_version.t b/lib/Tie/File/t/00_version.t index 3dd51c0bf6..f98523a0e1 100644 --- a/lib/Tie/File/t/00_version.t +++ b/lib/Tie/File/t/00_version.t @@ -2,7 +2,7 @@ print "1..1\n"; -my $testversion = "0.97"; +my $testversion = "0.97_01"; use Tie::File; if ($Tie::File::VERSION != $testversion) { |