call git remote prune to drop stale tracking branches

diff --git a/gitremotes b/gitremotes
index e2468814b01155f99ae7d7716851eb523e3e6220..d49cf2d9eff41cc001d9b5c6145b1d9a20e69050 100755 (executable)
--- a/gitremotes
+++ b/gitremotes
@@ -28,6 +28,9 @@ while (<IN>) {
                        print "$remote failed\n";
                }
                $error |= $r;
+               
+               # drop stale tracking branches
+               system("git", "remote", "prune", $remote);
        }
 }
 close IN;