fix a few more messages for absolute paths

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 00c62fb760b22ccbaf4a0af5c63522d70b4ecec7..72cd5c895978cc673662050b0b356ae044062cd8 100755 (executable)
--- a/mr
+++ b/mr
@@ -412,7 +412,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 $dir\n";

                return undef;
        }
        if (! length $rcs) {
                return undef;
        }
        if (! length $rcs) {


@@ -505,11 +505,11 @@ 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 $dir\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 $dir, skipping\n";

                        return SKIPPED;
                }
        }
                        return SKIPPED;
                }
        }


@@ -519,7 +519,7 @@ sub action {
                }
                else {
                        my $s=$directory;
                }
                else {
                        my $s=$directory;

-                       $s=~s/^\Q$topdir$subdir\E\/?//;
+                       $s=~s/^\Q$dir\E\/?//;

                        print "mr $action: $dir (in subdir $s)\n" unless $quiet;
                }
                $command="set -e; ".$lib.
                        print "mr $action: $dir (in subdir $s)\n" unless $quiet;
                }
                $command="set -e; ".$lib.