diff options
| author | David Steinbrunner <dsteinbrunner@pobox.com> | 2013-05-21 07:18:21 -0400 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2013-05-25 14:56:00 +0200 |
| commit | 2ded50a3a5f3bcefd17202c671ab6f24fab4dbe3 (patch) | |
| tree | faed95c28705b8a44937f30f3132bf7981a5ae4f /dist/Tie-File | |
| parent | d6579db461e0c75f74a5d0fd64321c0bd886963e (diff) | |
| download | perl-2ded50a3a5f3bcefd17202c671ab6f24fab4dbe3.tar.gz | |
typo fixes for Tie::File
Bump $VERSION.
Diffstat (limited to 'dist/Tie-File')
| -rw-r--r-- | dist/Tie-File/lib/Tie/File.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/dist/Tie-File/lib/Tie/File.pm b/dist/Tie-File/lib/Tie/File.pm index a288218a81..16426c0d49 100644 --- a/dist/Tie-File/lib/Tie/File.pm +++ b/dist/Tie-File/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.99"; +$VERSION = "1.00"; my $DEFAULT_MEMORY_SIZE = 1<<21; # 2 megabytes my $DEFAULT_AUTODEFER_THRESHHOLD = 3; # 3 records my $DEFAULT_AUTODEFER_FILELEN_THRESHHOLD = 65536; # 16 disk blocksful @@ -656,7 +656,7 @@ sub _mtwrite { if (@_) { $unwritten = $self->_downcopy($data, $end, $_[1] - $end); } else { - # Make the file longer to accommodate the last segment that doesn' + # Make the file longer to accommodate the last segment that doesn't $unwritten = $self->_downcopy($data, $end); } } @@ -1921,7 +1921,7 @@ sub set_val { return $oval; } -# The hask key has changed for an item; +# The hash key has changed for an item; # alter the heap's record of the hash key sub rekey { my ($self, $n, $new_key) = @_; |