From: Chip Salzenberg <chip@atlantic.net>
Date: Mon, 10 Feb 1997 19:29:00 +0000 (+1200)
Subject: Faster File::Compare
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=387d8d95fa82cdff6ade378cc9e1e344c53f8918;p=p5sagit%2Fp5-mst-13.2.git

Faster File::Compare

(this is the same change as commit 4d335c471cacb999603dc9b7dc6d3712051dbb6c, but as applied)
---

diff --git a/lib/File/Compare.pm b/lib/File/Compare.pm
index e76c10f..a76eb1f 100644
--- a/lib/File/Compare.pm
+++ b/lib/File/Compare.pm
@@ -7,7 +7,7 @@ require Exporter;
 use Carp;
 use UNIVERSAL qw(isa);
 
-$VERSION = '1.1';
+$VERSION = '1.1001';
 @ISA = qw(Exporter);
 @EXPORT = qw(compare);
 @EXPORT_OK = qw(cmp);
@@ -27,7 +27,7 @@ sub compare {
     my $to = shift;
     my $closefrom=0;
     my $closeto=0;
-    my ($size, $status, $fr, $tr, $fbuf, $tbuf);
+    my ($size, $fromsize, $status, $fr, $tr, $fbuf, $tbuf);
     local(*FROM, *TO);
     local($\) = '';
 
@@ -42,6 +42,7 @@ sub compare {
 	open(FROM,"<$from") or goto fail_open1;
 	binmode FROM;
 	$closefrom = 1;
+	$fromsize = -s FROM;
     }
 
     if (ref($to) && (isa($to,'GLOB') || isa($to,'IO::Handle'))) {
@@ -54,11 +55,16 @@ sub compare {
 	$closeto = 1;
     }
 
+    if ($closefrom && $closeto) {
+	# If both are opened files we know they differ if their size differ
+	goto fail_inner if $fromsize != -s TO;
+    }
+
     if (@_) {
 	$size = shift(@_) + 0;
 	croak("Bad buffer size for compare: $size\n") unless ($size > 0);
     } else {
-	$size = -s FROM;
+	$size = $fromsize;
 	$size = 1024 if ($size < 512);
 	$size = $Too_Big if ($size > $Too_Big);
     }