* Cut number of rcs tests run in half.

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 66b88ffd5045509eff7b8ac2f3df3848a6e06904..9d1e6576652722a2b74779114f0e8f73e93f511f 100755 (executable)
--- a/mr
+++ b/mr
@@ -324,9 +324,14 @@ my (@ok, @failed, @skipped);
 
 main();
 
 
 main();
 

+my %rcs;

 sub rcs_test { #{{{
        my ($action, $dir, $topdir, $subdir) = @_;
 
 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 {
        my $test="set -e\n";
        foreach my $rcs_test (
                        sort {


@@ -350,10 +355,10 @@ sub rcs_test { #{{{
                return undef;
        }
        if (! length $rcs) {
                return undef;
        }
        if (! length $rcs) {

-               return undef;
+               return $rcs{$dir}=undef;

        }
        else {
        }
        else {

-               return $rcs;
+               return $rcs{$dir}=$rcs;

        }
 } #}}}
        
        }
 } #}}}