allow .mrconfig to be a symlink

abs_path would canonicalise the symlink and mr would try to from the
directory of the file it pointed to, avoid that counterintive behavior

diff --git a/mr b/mr
index aa15728925c0b3ee00cd09acce516e1cda41e2e1..0f80fc8c25165bec270fbbf9103ba8b67f960d60 100755 (executable)
--- a/mr
+++ b/mr
@@ -129,7 +129,7 @@ foreach my $topdir (sort keys %config) {
 
                if (defined $directory &&
                    $dir !~ /^\Q$directory\E\//) {
 
                if (defined $directory &&
                    $dir !~ /^\Q$directory\E\//) {

-                       print "mr $action: $dir skipped per -d parameter\n" if $verbose;
+                       print "mr $action: $dir skipped per -d parameter ($directory)\n" if $verbose;

                        push @skipped, $dir;
                        next;
                }
                        push @skipped, $dir;
                        next;
                }


@@ -212,16 +212,17 @@ sub loadconfig {
                $dir="";
        }
        else {
                $dir="";
        }
        else {

-               $f=abs_path($f);
-
-               if ($loaded{$f}) {
+               # $f might be a symlink
+               my $absf=abs_path($f);
+               if ($loaded{$absf}) {

                        return;
                }
                        return;
                }

-               $loaded{$f}=1;
+               $loaded{$absf}=1;

 
                print "mr: loading config $f\n" if $verbose;
                open($in, "<", $f) || die "mr: open $f: $!\n";
                ($dir)=$f=~/^(.*\/)[^\/]+$/;
 
                print "mr: loading config $f\n" if $verbose;
                open($in, "<", $f) || die "mr: open $f: $!\n";
                ($dir)=$f=~/^(.*\/)[^\/]+$/;

+               $dir=abs_path($dir)."/";

 
                # copy in defaults from first parent
                my $parent=$dir;
 
                # copy in defaults from first parent
                my $parent=$dir;