improve message

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 66b88ffd5045509eff7b8ac2f3df3848a6e06904..5e0ac7f4f9fe63b1ac69773d271fa694cba1a79d 100755 (executable)
--- 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;
        }
 } #}}}
        
@@ -443,7 +448,7 @@ sub action { #{{{
                        return FAILED;
                }
                else {
-                       print STDERR "mr $action: no defined $action command for $rcs repository $topdir$subdir, skipping\n";
+                       print STDERR "mr $action: no defined action for $rcs repository $topdir$subdir, skipping\n";
                        return SKIPPED;
                }
        }