* Better error message if more than one repo type test matches a single

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 9501322e7a6d04004266f4a21bdc64136dc2dfc2..62c6be83af2c6dd015fb8cf7aa5104b999af732f 100755 (executable)
--- a/mr
+++ b/mr
@@ -343,6 +343,11 @@ sub rcs_test { #{{{
        print "mr $action: running rcs test >>$test<<\n" if $verbose;
        my $rcs=`$test`;
        chomp $rcs;
+       if ($rcs=~/\n/s) {
+               $rcs=~s/\n/, /g;
+               print STDERR "mr $action: found multiple possible repository types ($rcs) for $topdir$subdir\n";
+               return undef;
+       }
        if (! length $rcs) {
                return undef;
        }