X-Git-Url: https://git.madduck.net/code/myrepos.git/blobdiff_plain/a33fafdabb2ba491a412616aa169404cee56fa05..92d4eb5232b4ab12a6570781e011109de8940962:/mr?ds=inline

diff --git a/mr b/mr
index 48c355c..6cac30c 100755
--- a/mr
+++ b/mr
@@ -222,7 +222,10 @@ Be verbose.
 
 =item --quiet
 
-Be quiet.
+Be quiet. This supresses mr's usual output. Any output from the
+commands that mr runs will still be displayed.
+
+For example, to see only uncommitted changes, use "mr -q status"
 
 =item -k
 
@@ -641,7 +644,7 @@ sub action {
 
 		$command="set -e; ".$lib.
 			"my_action(){ $command\n }; my_action ".
-			join(" ", map { s/\//\/\//g; s/"/\"/g; '"'.$_.'"' } @ARGV);
+			join(" ", map { s/\\/\\\\/g; s/"/\"/g; '"'.$_.'"' } @ARGV);
 		print "mr $action: running >>$command<<\n" if $verbose;
 		my $ret=system($command);
 		if ($ret != 0) {
@@ -1417,7 +1420,7 @@ sub register {
 	$ENV{MR_REPO}=~s/.*\/(.*)/$1/;
 	$command="set -e; ".$config{$directory}{DEFAULT}{lib}."\n".
 		"my_action(){ $command\n }; my_action ".
-		join(" ", map { s/\//\/\//g; s/"/\"/g; '"'.$_.'"' } @ARGV);
+		join(" ", map { s/\\/\\\\/g; s/"/\"/g; '"'.$_.'"' } @ARGV);
 	print "mr register: running >>$command<<\n" if $verbose;
 	exec($command) || die "exec: $!";
 }