remember mr switches

diff --git a/mr b/mr
index 06b58e399517f801d011b32302c3f9e5a02cfa37..2e5b03dc983a3f9f64e997eb2569b5cab10c2b0b 100755 (executable)
--- a/mr
+++ b/mr
@@ -381,7 +381,7 @@ my %configfiles;
 my %knownactions;
 my %alias;
 my (@ok, @failed, @skipped);
 my %knownactions;
 my %alias;
 my (@ok, @failed, @skipped);

-my @SWITCHES=@ARGV;
+my @switches=@ARGV;

 
 main();
 
 
 main();
 


@@ -540,7 +540,7 @@ sub action { #{{{
                        if ($ret >> 8 != 0) {
                                print STDERR "mr $action: command failed\n";
                                if (-e "$ENV{HOME}/.mrlog" && $action ne 'remember') {
                        if ($ret >> 8 != 0) {
                                print STDERR "mr $action: command failed\n";
                                if (-e "$ENV{HOME}/.mrlog" && $action ne 'remember') {

-                                       @ARGV=(@SWITCHES, $action);
+                                       @ARGV=(@switches, $action, @ARGV);

                                        action("remember", $dir, $topdir, $subdir);
                                }
                        }
                                        action("remember", $dir, $topdir, $subdir);
                                }
                        }


@@ -1183,7 +1183,7 @@ sub main { #{{{
        #use Data::Dumper; print Dumper(\%config);
        
        my $action=shift @ARGV;
        #use Data::Dumper; print Dumper(\%config);
        
        my $action=shift @ARGV;

-       @SWITCHES = grep { $_ ne $action } @SWITCHES;
+       @switches = grep { $_ ne $action } @SWITCHES;

        $action=expandaction($action);
 
        dispatch($action);
        $action=expandaction($action);
 
        dispatch($action);