X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFile%2FCompare.pm;h=0b73d7c76570925aea187ba67642eb42091f0171;hb=fa76202e3aa22e9755f1a461416769c368b47afc;hp=8a8afac05fb2357e68372342b45e33694e34f74c;hpb=17f410f9a3a4ae9cda502b59b391e6653db436ce;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/File/Compare.pm b/lib/File/Compare.pm
index 8a8afac..0b73d7c 100644
--- a/lib/File/Compare.pm
+++ b/lib/File/Compare.pm
@@ -1,24 +1,20 @@
 package File::Compare;
 
-use 5.005_64;
+use 5.006;
 use strict;
+use warnings;
 our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Too_Big);
 
 require Exporter;
 use Carp;
 
-$VERSION = '1.1002';
+$VERSION = '1.1003';
 @ISA = qw(Exporter);
 @EXPORT = qw(compare);
 @EXPORT_OK = qw(cmp compare_text);
 
 $Too_Big = 1024 * 1024 * 2;
 
-sub VERSION {
-    # Version of File::Compare
-    return $File::Compare::VERSION;
-}
-
 sub compare {
     croak("Usage: compare( file1, file2 [, buffersize]) ")
       unless(@_ == 2 || @_ == 3);
@@ -78,7 +74,7 @@ sub compare {
     }
     else {
 	unless (defined($size) && $size > 0) {
-	    $size = $fromsize;
+	    $size = $fromsize || -s TO || 0;
 	    $size = 1024 if $size < 512;
 	    $size = $Too_Big if $size > $Too_Big;
 	}
@@ -170,8 +166,8 @@ is basically equivalent to
 
 =head1 RETURN
 
-File::Compare::compare return 0 if the files are equal, 1 if the
-files are unequal, or -1 if an error was encountered.
+File::Compare::compare and its sibling functions return 0 if the files
+are equal, 1 if the files are unequal, or -1 if an error was encountered.
 
 =head1 AUTHOR