Fix mr -c <config> register. (Thanks, Daniel Bungert)

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 55dbdeebbf93c3a8855807542231348ec2f26883..3148a3f94fba74eb4a857642fbe5595e5db5d8f7 100755 (executable)
--- a/mr
+++ b/mr
@@ -1027,7 +1027,12 @@ sub config { #{{{
 } #}}}
 
 sub register { #{{{
 } #}}}
 
 sub register { #{{{

-       if (! $config_overridden) {
+       if ($config_overridden) {
+               # Find the directory that the specified config file is
+               # located in.
+               ($directory)=abs_path($ENV{MR_CONFIG})=~/^(.*\/)[^\/]+$/;
+       }
+       else {

                # Find the closest known mrconfig file to the current
                # directory.
                $directory.="/" unless $directory=~/\/$/;
                # Find the closest known mrconfig file to the current
                # directory.
                $directory.="/" unless $directory=~/\/$/;