Added git-subtree library. Thanks, Svend Sorensen

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 48c355c54a7690ef49b414136270cc05bd70858c..6cac30c99bb8dfafa9badc7299d9064915be92c0 100755 (executable)
--- a/mr
+++ b/mr
@@ -222,7 +222,10 @@ Be verbose.
 
 =item --quiet
 
 
 =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
 
 
 =item -k
 


@@ -641,7 +644,7 @@ sub action {
 
                $command="set -e; ".$lib.
                        "my_action(){ $command\n }; my_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) {
                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 ".
        $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: $!";
 }
        print "mr register: running >>$command<<\n" if $verbose;
        exec($command) || die "exec: $!";
 }