status: add --porcelain output format

diff --git a/git-svn.perl b/git-svn.perl
index fd7232cf6d6fcff0042a8251bbe604d02245a9a5..d0758107249f3743795d0961d36906452ac7d00a 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -4831,7 +4831,11 @@ sub minimize_url {
        my $c = '';
        do {
                $url .= "/$c" if length $c;
-               eval { (ref $self)->new($url)->get_latest_revnum };
+               eval {
+                       my $ra = (ref $self)->new($url);
+                       my $latest = $ra->get_latest_revnum;
+                       $ra->get_log("", $latest, 0, 1, 0, 1, sub {});
+               };
        } while ($@ && ($c = shift @components));
        $url;
 }