From: Joey Hess Date: Fri, 26 Oct 2007 05:14:37 +0000 (-0400) Subject: meh, try again at getting register to use the right configs X-Git-Url: https://git.madduck.net/code/myrepos.git/commitdiff_plain/81612f267ea283552bf2f1f1ba8ce0f59b2da337?ds=inline;hp=-c meh, try again at getting register to use the right configs --- 81612f267ea283552bf2f1f1ba8ce0f59b2da337 diff --git a/mr b/mr index f9a208f..494e89b 100755 --- a/mr +++ b/mr @@ -440,13 +440,13 @@ elsif ($action eq 'register') { } $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/; - $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;