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;
