From: Joey Hess <joey@kodama.kitenet.net>
Date: Fri, 9 Nov 2007 02:30:43 +0000 (-0500)
Subject: * Cut number of rcs tests run in half.
X-Git-Url: https://git.madduck.net/code/myrepos.git/commitdiff_plain/116d8b839740fe480c0b2e1bf6275bf05dffc074?pf=code

* Cut number of rcs tests run in half.
---

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;
 	}
 } #}}}