avoid File::Compare warning when passed handles (from Nick

Ing-Simmons)

p4raw-id: //depot/perl@5880

diff --git a/lib/File/Compare.pm b/lib/File/Compare.pm
index 8a8afac..667e7cb 100644 (file)
--- 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;
        }