]> git.madduck.net Git - code/myrepos.git/commitdiff

madduck's git repository

Every one of the projects in this repository is available at the canonical URL git://git.madduck.net/madduck/pub/<projectpath> — see each project's metadata for the exact URL.

All patches and comments are welcome. Please squash your changes to logical commits before using git-format-patch and git-send-email to patches@git.madduck.net. If you'd read over the Git project's submission guidelines and adhered to them, I'd be especially grateful.

SSH access, as well as push access can be individually arranged.

If you use my repositories frequently, consider adding the following snippet to ~/.gitconfig and using the third clone URL listed for each project:

[url "git://git.madduck.net/madduck/"]
  insteadOf = madduck:

* Cut number of rcs tests run in half.
authorJoey Hess <joey@kodama.kitenet.net>
Fri, 9 Nov 2007 02:30:43 +0000 (21:30 -0500)
committerJoey Hess <joey@kodama.kitenet.net>
Fri, 9 Nov 2007 02:30:43 +0000 (21:30 -0500)
debian/changelog
mr

index f6f5975ded8cdb60e4338224b1db5014057dfad3..361b0ed9d0a20c040de9ca024df9b5c126b8f180 100644 (file)
@@ -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;
        }
 } #}}}
        
        }
 } #}}}