Bug#529296: Preliminary patch to make --quiet be quiet unless there's an error

[Lars Wirzenius]

My Perl is, er, somewhat non-existent, but perhaps something like this
might be a start?

-- 
Blog/wiki/website hosting with ikiwiki (free for free software):
http://www.branchable.com/

diff --git a/mr b/mr
index 54eb6a1..6cac30c 100755
--- a/mr
+++ b/mr
@@ -646,11 +646,8 @@ sub action {
 			"my_action(){ $command\n }; my_action ".
 			join(" ", map { s/\\/\\\\/g; s/"/\"/g; '"'.$_.'"' } @ARGV);
 		print "mr $action: running >>$command<<\n" if $verbose;
-		$command .= " 2>&1" if $quiet;
-		my $output = qx/$command/;
-		my $ret = $?;
+		my $ret=system($command);
 		if ($ret != 0) {
-			print STDERR $output if $quiet;
 			if (($? & 127) == 2) {
 				print STDERR "mr $action: interrupted\n";
 				return ABORT;