* Cut number of rcs tests run in half.

diff --git a/debian/changelog b/debian/changelog
index f6f5975ded8cdb60e4338224b1db5014057dfad3..361b0ed9d0a20c040de9ca024df9b5c126b8f180 100644 (file)
--- 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
 
   * 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
 
 
 mr (0.13) unstable; urgency=low
 

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;

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