diff options
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) { |