From 116d8b839740fe480c0b2e1bf6275bf05dffc074 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kodama.kitenet.net>
Date: Thu, 8 Nov 2007 21:30:43 -0500
Subject: [PATCH] * Cut number of rcs tests run in half.

---
 debian/changelog | 3 ++-
 mr               | 9 +++++++--
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index f6f5975..361b0ed 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -2,8 +2,9 @@ mr (0.14) UNRELEASED; urgency=low
 
   * Portability fixes for the non-POSIX shell of SunOS 5. Patch from Ken
     Bloom. Closes: #449592
+  * Cut number of rcs tests run in half.
 
- -- Joey Hess <joeyh@debian.org>  Wed, 07 Nov 2007 11:54:29 -0500
+ -- Joey Hess <joeyh@debian.org>  Thu, 08 Nov 2007 21:29:44 -0500
 
 mr (0.13) unstable; urgency=low
 
diff --git a/mr b/mr
index 66b88ff..9d1e657 100755
--- a/mr
+++ b/mr
@@ -324,9 +324,14 @@ my (@ok, @failed, @skipped);
 
 main();
 
+my %rcs;
 sub rcs_test { #{{{
 	my ($action, $dir, $topdir, $subdir) = @_;
 
+	if (exists $rcs{$dir}) {
+		return $rcs{$dir};
+	}
+
 	my $test="set -e\n";
 	foreach my $rcs_test (
 			sort {
@@ -350,10 +355,10 @@ sub rcs_test { #{{{
 		return undef;
 	}
 	if (! length $rcs) {
-		return undef;
+		return $rcs{$dir}=undef;
 	}
 	else {
-		return $rcs;
+		return $rcs{$dir}=$rcs;
 	}
 } #}}}
 	
-- 
2.39.2