t4018 (funcname patterns): minor cleanups

[git.git] / git-svn.perl

diff --git a/git-svn.perl b/git-svn.perl
index bf0451b46835357af7811096538e9e7d75311166..da3fea8bd2c857bbc2e841dec7545318b3b9354e 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -5752,7 +5752,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};