X-Git-Url: https://git.madduck.net/code/myrepos.git/blobdiff_plain/c96f104ae98e3268784cb44458e8891e236b4d99..311c6efa8e64a24f406955373eff67e4a35ad0c0:/mr?ds=inline diff --git a/mr b/mr index b8d5835..62c6be8 100755 --- 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; } @@ -1020,7 +1025,7 @@ sub expandaction { #{{{ } #}}} sub getopts { #{{{ - Getopt::Long::Configure("no_permute"); + Getopt::Long::Configure("bundling", "no_permute"); my $result=GetOptions( "d|directory=s" => sub { $directory=abs_path($_[1]) }, "c|config=s" => sub { $ENV{MR_CONFIG}=$_[1]; $config_overridden=1 },