]> 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:

Fix display when absolute directories are configured in mrconfig.
authorJoey Hess <joey@kitenet.net>
Thu, 28 Oct 2010 22:02:21 +0000 (18:02 -0400)
committerJoey Hess <joey@kitenet.net>
Thu, 28 Oct 2010 22:02:21 +0000 (18:02 -0400)
debian/changelog
mr

index 6108b58fd8a1a620e8d1175ce2aece7d0e4e6003..2a976fdd5fc4adfd7a3b68552cb5f9d82213aa30 100644 (file)
@@ -1,3 +1,9 @@
+mr (0.51) UNRELEASED; urgency=low
+
+  * Fix display when absolute directories are configured in mrconfig.
+
+ -- Joey Hess <joeyh@debian.org>  Thu, 28 Oct 2010 18:01:27 -0400
+
 mr (0.50) unstable; urgency=low
 
   * Now supports the Fossil VCS. (Thanks, Jimmy Tang)
 mr (0.50) unstable; urgency=low
 
   * Now supports the Fossil VCS. (Thanks, Jimmy Tang)
diff --git a/mr b/mr
index e73f3c841bed60b6af94eed6f642f4e67ee54a62..2bb3efa38c77a4ddc6bf0169d2c1077e5c21c1a9 100755 (executable)
--- a/mr
+++ b/mr
@@ -498,7 +498,7 @@ sub rcs_test {
        chomp $rcs;
        if ($rcs=~/\n/s) {
                $rcs=~s/\n/, /g;
        chomp $rcs;
        if ($rcs=~/\n/s) {
                $rcs=~s/\n/, /g;
-               print STDERR "mr $action: found multiple possible repository types ($rcs) for $topdir$subdir\n";
+               print STDERR "mr $action: found multiple possible repository types ($rcs) for ".fulldir($topdir, $subdir)."\n";
                return undef;
        }
        if (! length $rcs) {
                return undef;
        }
        if (! length $rcs) {
@@ -531,9 +531,15 @@ sub findcommand {
        }
 }
 
        }
 }
 
+sub fulldir {
+       my ($topdir, $subdir) = @_;
+       return $subdir =~ /^\// ? $subdir : $topdir.$subdir;
+}
+
 sub action {
        my ($action, $dir, $topdir, $subdir, $force_checkout) = @_;
 sub action {
        my ($action, $dir, $topdir, $subdir, $force_checkout) = @_;
-       
+       my $fulldir=fulldir($topdir, $subdir);
+
        $ENV{MR_CONFIG}=$configfiles{$topdir};
        my $lib=exists $config{$topdir}{$subdir}{lib} ?
                       $config{$topdir}{$subdir}{lib}."\n" : "";
        $ENV{MR_CONFIG}=$configfiles{$topdir};
        my $lib=exists $config{$topdir}{$subdir}{lib} ?
                       $config{$topdir}{$subdir}{lib}."\n" : "";
@@ -594,22 +600,22 @@ sub action {
        elsif (! defined $command) {
                my $rcs=rcs_test(@_);
                if (! defined $rcs) {
        elsif (! defined $command) {
                my $rcs=rcs_test(@_);
                if (! defined $rcs) {
-                       print STDERR "mr $action: unknown repository type and no defined $action command for $topdir$subdir\n";
+                       print STDERR "mr $action: unknown repository type and no defined $action command for $fulldir\n";
                        return FAILED;
                }
                else {
                        return FAILED;
                }
                else {
-                       print STDERR "mr $action: no defined action for $rcs repository $topdir$subdir, skipping\n";
+                       print STDERR "mr $action: no defined action for $rcs repository $fulldir, skipping\n";
                        return SKIPPED;
                }
        }
        else {
                if (! $no_chdir) {
                        return SKIPPED;
                }
        }
        else {
                if (! $no_chdir) {
-                       print "mr $action: $topdir$subdir\n" unless $quiet;
+                       print "mr $action: $fulldir\n" unless $quiet;
                }
                else {
                        my $s=$directory;
                }
                else {
                        my $s=$directory;
-                       $s=~s/^\Q$topdir$subdir\E\/?//;
-                       print "mr $action: $topdir$subdir (in subdir $s)\n" unless $quiet;
+                       $s=~s/^\Q$fulldir\E\/?//;
+                       print "mr $action: $fulldir (in subdir $s)\n" unless $quiet;
                }
 
                my $hookret=hook("pre_$action", $topdir, $subdir);
                }
 
                my $hookret=hook("pre_$action", $topdir, $subdir);