From: Joey Hess <joey@kodama.kitenet.net>
Date: Thu, 26 Jun 2008 22:12:07 +0000 (-0400)
Subject: remember mr switches
X-Git-Url: https://git.madduck.net/code/myrepos.git/commitdiff_plain/3cba68134c64156e30c1c19148c1e73990e7a2f1?ds=inline

remember mr switches
---

diff --git a/mr b/mr
index 06b58e3..2e5b03d 100755
--- a/mr
+++ b/mr
@@ -381,7 +381,7 @@ my %configfiles;
 my %knownactions;
 my %alias;
 my (@ok, @failed, @skipped);
-my @SWITCHES=@ARGV;
+my @switches=@ARGV;
 
 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') {
-					@ARGV=(@SWITCHES, $action);
+					@ARGV=(@switches, $action, @ARGV);
 					action("remember", $dir, $topdir, $subdir);
 				}
 			}
@@ -1183,7 +1183,7 @@ sub main { #{{{
 	#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);