* Make registration work when no config file yet exists. Closes: #448422

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 67196ca2046ca5b5f7d4acb18d7eafe3c793dbd2..ccc764744b10681e23f569864943069cfda227ed 100755 (executable)
--- a/mr
+++ b/mr
@@ -960,14 +960,19 @@ sub register { #{{{
                # 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=~/\/$/;

+               my $foundconfig=0;

                foreach my $topdir (reverse sort keys %config) {
                        next unless length $topdir;
                        if ($directory=~/^\Q$topdir\E/) {
                                $ENV{MR_CONFIG}=$configfiles{$topdir};
                                $directory=$topdir;
                foreach my $topdir (reverse sort keys %config) {
                        next unless length $topdir;
                        if ($directory=~/^\Q$topdir\E/) {
                                $ENV{MR_CONFIG}=$configfiles{$topdir};
                                $directory=$topdir;

+                               $foundconfig=1;

                                last;
                        }
                }
                                last;
                        }
                }

+               if (! $foundconfig) {
+                       $directory=""; # no config file, use builtin
+               }

        }
        if (@ARGV) {
                my $subdir=shift @ARGV;
        }
        if (@ARGV) {
                my $subdir=shift @ARGV;