meh, try again at getting register to use the right configs

[code/myrepos.git] / mr

diff --git a/mr b/mr
index f9a208f7b31db6fbeefeed8b04e71e6ad551fa50..494e89bd4bb05a4ca5bcdded5fc81c94ef6ae6e8 100755 (executable)
--- a/mr
+++ b/mr
@@ -440,13 +440,13 @@ elsif ($action eq 'register') {
        }
 
        $ENV{MR_REPO}=getcwd();
        }
 
        $ENV{MR_REPO}=getcwd();

-       my $command=findcommand("register", $ENV{MR_CONFIG}, $directory, 'DEFAULT');
+       my $command=findcommand("register", $ENV{MR_REPO}, $directory, 'DEFAULT');

        if (! defined $command) {
                die "mr $action: unknown repository type\n";
        }
 
        $ENV{MR_REPO}=~s/.*\/(.*)/$1/;
        if (! defined $command) {
                die "mr $action: unknown repository type\n";
        }
 
        $ENV{MR_REPO}=~s/.*\/(.*)/$1/;

-       $command="set -e; ".$config{$ENV{MR_CONFIG}}{$directory}{lib}."\n".
+       $command="set -e; ".$config{$directory}{DEFAULT}{lib}."\n".

                "my_action(){ $command\n }; my_action ".
                join(" ", map { s/\//\/\//g; s/"/\"/g; '"'.$_.'"' } @ARGV);
        print "mr $action: running >>$command<<\n" if $verbose;
                "my_action(){ $command\n }; my_action ".
                join(" ", map { s/\//\/\//g; s/"/\"/g; '"'.$_.'"' } @ARGV);
        print "mr $action: running >>$command<<\n" if $verbose;