Upgrade to Tie::File 0.51, from Mark-Jason Dominus.
Jarkko Hietaniemi [Sun, 24 Mar 2002 22:30:48 +0000 (22:30 +0000)]
(All the code changes have already been applied earlier.)

p4raw-id: //depot/perl@15480

lib/Tie/File.pm
lib/Tie/File/t/00_version.t

index 4f9b2f2..7ac6a04 100644 (file)
@@ -5,7 +5,7 @@ use POSIX 'SEEK_SET';
 use Fcntl 'O_CREAT', 'O_RDWR', 'LOCK_EX';
 require 5.005;
 
-$VERSION = "0.50";
+$VERSION = "0.51";
 my $DEFAULT_MEMORY_SIZE = 1<<21;    # 2 megabytes
 
 my %good_opt = map {$_ => 1, "-$_" => 1} 
@@ -961,7 +961,7 @@ Tie::File - Access the lines of a disk file via a Perl array
 
 =head1 SYNOPSIS
 
-       # This file documents Tie::File version 0.50
+       # This file documents Tie::File version 0.51
 
        tie @array, 'Tie::File', filename or die ...;
 
@@ -1487,7 +1487,7 @@ any news of importance, will be available at
 
 =head1 LICENSE
 
-C<Tie::File> version 0.50 is copyright (C) 2002 Mark Jason Dominus.
+C<Tie::File> version 0.51 is copyright (C) 2002 Mark Jason Dominus.
 
 This library is free software; you may redistribute it and/or modify
 it under the same terms as Perl itself.
@@ -1515,7 +1515,7 @@ For licensing inquiries, contact the author at:
 
 =head1 WARRANTY
 
-C<Tie::File> version 0.50 comes with ABSOLUTELY NO WARRANTY.
+C<Tie::File> version 0.51 comes with ABSOLUTELY NO WARRANTY.
 For details, see the license.
 
 =head1 THANKS
index ce8c964..49317f3 100644 (file)
@@ -2,7 +2,7 @@
 
 print "1..1\n";
 
-my $testversion = "0.50";
+my $testversion = "0.51";
 use Tie::File;
 
 if ($Tie::File::VERSION != $testversion) {