X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFile%2FCompare.pm;h=0b73d7c76570925aea187ba67642eb42091f0171;hb=fa76202e3aa22e9755f1a461416769c368b47afc;hp=b83ba625833b9963a9e02f13d165b9519de64d4e;hpb=d6a466d771dbdc293e3f83b595b03cf44617cabb;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/File/Compare.pm b/lib/File/Compare.pm index b83ba62..0b73d7c 100644 --- a/lib/File/Compare.pm +++ b/lib/File/Compare.pm @@ -1,6 +1,6 @@ package File::Compare; -use 5.6.0; +use 5.006; use strict; use warnings; our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Too_Big); @@ -15,11 +15,6 @@ $VERSION = '1.1003'; $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); @@ -171,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