bundle: allowing to read from an unseekable fd

diff --git a/git-svn.perl b/git-svn.perl
index 0fd2fd2188b93fe15bda901f512bd55ad3a5034a..7849cfc141d384bc28479c2f37fd128c77fe0fbe 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -5765,7 +5765,7 @@ sub cmd_show_log {
        my (@k, $c, $d, $stat);
        my $esc_color = qr/(?:\033\[(?:(?:\d+;)*\d*)?m)*/;
        while (<$log>) {
-               if (/^${esc_color}commit (- )?($::sha1_short)/o) {
+               if (/^${esc_color}commit (?:- )?($::sha1_short)/o) {
                        my $cmt = $1;
                        if ($c && cmt_showable($c) && $c->{r} != $r_last) {
                                $r_last = $c->{r};