X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=sync-all;h=d20f4e7ff6f05a439e4ed7c700c9f869d054ada8;hb=6caa417ded740fb8eaa50669269e38c8129092f0;hp=729dbd3d557fefc8667a27693865d2c76bda89bf;hpb=2688d8db92fb9a1b766b77aaa54549d171a08826;p=ghc-hetmet.git

diff --git a/sync-all b/sync-all
index 729dbd3..d20f4e7 100755
--- a/sync-all
+++ b/sync-all
@@ -228,7 +228,7 @@ sub scmall {
 
     my ($repo_base, $checked_out_tree) = getrepo();
 
-    my $is_github_repo = $repo_base =~ m/(git@|git:\/\/)github.com/;
+    my $is_github_repo = $repo_base =~ m/(git@|git:\/\/|https:\/\/)github.com/;
 
     parsePackages;
 
@@ -262,7 +262,6 @@ sub scmall {
     }
 
     push(@args, @_);
-    print "args: @args\n";
 
     for $line (@packages) {
 
@@ -290,7 +289,7 @@ sub scmall {
             }
 
             # Work out the arguments we should give to the SCM
-            if ($command =~ /^(?:w|wh|wha|what|whats|whatsn|whatsne|whatsnew)$/) {
+            if ($command =~ /^(?:w|wh|wha|what|whats|whatsn|whatsne|whatsnew|status)$/) {
                 @scm_args = (($scm eq "darcs" and "whatsnew")
                           or ($scm eq "git" and "status"));
                 
@@ -354,6 +353,11 @@ sub scmall {
                     @scm_args = ("remote", "set-url", $branch_name, $path);
                 }
             }
+            elsif ($command =~ /^grep$/) {
+              @scm_args = ("grep");
+              # Hack around 'git grep' failing if there are no matches
+              $ignore_failure = 1;
+            }
             else {
                 die "Unknown command: $command";
             }
@@ -407,6 +411,7 @@ Supported commands:
  * remote add <branch-name>
  * remote rm <branch-name>
  * remote set-url [--push] <branch-name>
+ * grep
 
 Available package-tags are:
 END