From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 22 Dec 2005 23:43:22 +0000 (+0000)
Subject: Missing ; in Tie::File
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56ee885b9944afc79979dedcca0d92dab5eefc3f;p=p5sagit%2Fp5-mst-13.2.git

Missing ; in Tie::File

p4raw-id: //depot/perl@26454
---

diff --git a/lib/Tie/File.pm b/lib/Tie/File.pm
index 2f247c3..dfd86cd 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 3dd51c0..f98523a 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) {