diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-22 16:55:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-22 16:55:42 +0000 |
| commit | 5c99b74dc9de7d22f41ca6ea0da3c9ce14cd34e0 (patch) | |
| tree | 3d3c37e4e5e4464ea530130354ab3fa2dd413145 /lib/File/Compare.pm | |
| parent | 514114c10e96cbf0be8c89b8bb59a99001534fec (diff) | |
| download | perl-5c99b74dc9de7d22f41ca6ea0da3c9ce14cd34e0.tar.gz | |
avoid File::Compare warning when passed handles (from Nick
Ing-Simmons)
p4raw-id: //depot/perl@5880
Diffstat (limited to 'lib/File/Compare.pm')
| -rw-r--r-- | lib/File/Compare.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Compare.pm b/lib/File/Compare.pm index 8a8afac05f..667e7cb883 100644 --- a/lib/File/Compare.pm +++ b/lib/File/Compare.pm @@ -78,7 +78,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; } |