X-Git-Url: https://git.madduck.net/code/myrepos.git/blobdiff_plain/9d693e74ae191dd8ba452ee5319c5cf6a59e1e9a..116d8b839740fe480c0b2e1bf6275bf05dffc074:/mr?ds=inline

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