package File::Compare;
-use 5.005_64;
+use 5.6.0;
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);
}
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;
}