chdir() to config directory before including

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 87acef39b279cf4d119f35912ebc8967a7cf524c..b7cd3cb61c16b7a46bd116c868121597d2743cd0 100755 (executable)
--- a/mr
+++ b/mr
@@ -563,6 +563,7 @@ use warnings;
 use strict;
 use Getopt::Long;
 use Cwd qw(getcwd abs_path);
 use strict;
 use Getopt::Long;
 use Cwd qw(getcwd abs_path);

+use File::Basename;

 
 # things that can happen when mr runs a command
 use constant {
 
 # things that can happen when mr runs a command
 use constant {


@@ -586,7 +587,7 @@ my $no_chdir=0;
 my $jobs=1;
 my $trust_all=0;
 my $directory=getcwd();
 my $jobs=1;
 my $trust_all=0;
 my $directory=getcwd();

-my $terminal=-t STDOUT && eval{require IO::Pty::Easy;IO::Pty::Easy->import();1;} eq 1;
+my $terminal=-t STDOUT && eval{require IO::Pty::Easy;IO::Pty::Easy->import();1;};

 
 my $HOME_MR_CONFIG = "$ENV{HOME}/.mrconfig";
 $ENV{MR_CONFIG}=find_mrconfig();
 
 my $HOME_MR_CONFIG = "$ENV{HOME}/.mrconfig";
 $ENV{MR_CONFIG}=find_mrconfig();


@@ -853,7 +854,7 @@ sub action {
                }
                print "$actionmsg\n" unless $quiet || $minimal;
 
                }
                print "$actionmsg\n" unless $quiet || $minimal;
 

-               my $hookret=hook("pre_$action", $topdir, $subdir);
+               my ($hookret, $hook_out)=hook("pre_$action", $topdir, $subdir);

                return $hookret if $hookret != OK;
 
                my ($ret, $out)=runsh $action, $topdir, $subdir,
                return $hookret if $hookret != OK;
 
                my ($ret, $out)=runsh $action, $topdir, $subdir,


@@ -908,7 +909,7 @@ sub action {
                                                return FAILED;
                                        }
                                }
                                                return FAILED;
                                        }
                                }

-                               my $ret=hook("fixups", $topdir, $subdir);
+                               my ($ret, $hook_out)=hook("fixups", $topdir, $subdir);

                                return $ret if $ret != OK;
                        }
                        
                                return $ret if $ret != OK;
                        }
                        


@@ -1278,6 +1279,7 @@ sub loadconfig {
        my @toload;
 
        my $in;
        my @toload;
 
        my $in;

+       my $absf=abs_path($f);

        my $trusted;
        if (ref $f eq 'GLOB') {
                $dir="";
        my $trusted;
        if (ref $f eq 'GLOB') {
                $dir="";


@@ -1285,7 +1287,6 @@ sub loadconfig {
                $trusted=1;
        }
        else {
                $trusted=1;
        }
        else {

-               my $absf=abs_path($f);

                if ($loaded{$absf}) {
                        return;
                }
                if ($loaded{$absf}) {
                        return;
                }


@@ -1301,7 +1302,11 @@ sub loadconfig {
                }
 
                $dir=abs_path($dir)."/";
                }
 
                $dir=abs_path($dir)."/";

-               
+
+               if (chdir($dir)) {
+                       $f=basename($f);
+               }
+

                if (! exists $configfiles{$dir}) {
                        $configfiles{$dir}=$f;
                }
                if (! exists $configfiles{$dir}) {
                        $configfiles{$dir}=$f;
                }


@@ -1323,7 +1328,12 @@ sub loadconfig {
                        return;
                }
 
                        return;
                }
 

-               print "mr: loading config $f\n" if $verbose;
+               if ($f =~ /\//) {
+                       print "mr: loading config $f\n" if $verbose;
+               } else {
+                       print "mr: loading config $f (from ".getcwd().")\n" if $verbose;
+               }
+

                open($in, "<", $f) || die "mr: open $f: $!\n";
        }
        my @lines=<$in>;
                open($in, "<", $f) || die "mr: open $f: $!\n";
        }
        my @lines=<$in>;


@@ -1367,7 +1377,7 @@ sub loadconfig {
                                "this can allow arbitrary code execution!)\n";
                }
                else {
                                "this can allow arbitrary code execution!)\n";
                }
                else {

-                       die "mr: $msg in untrusted $f line $lineno\n".
+                       die "mr: $msg in untrusted $absf line $lineno\n".

                                "(To trust this file, list it in ~/.mrtrust.)\n";
                }
        };
                                "(To trust this file, list it in ~/.mrtrust.)\n";
                }
        };


@@ -2087,6 +2097,7 @@ svn_grep = ack-grep "$@"
 git_svn_grep = git grep "$@"
 git_grep = git grep "$@"
 bzr_grep = ack-grep "$@"
 git_svn_grep = git grep "$@"
 git_grep = git grep "$@"
 bzr_grep = ack-grep "$@"

+darcs_grep = ack-grep "$@"

 
 run = "$@"
 
 
 run = "$@"