t6036: criss-cross + rename/rename(1to2)/add-dest + simple modify

diff --git a/git-svn.perl b/git-svn.perl
index e5a553f0078fb87d6aab01a5ece4ff2ab94a1c89..da3fea8bd2c857bbc2e841dec7545318b3b9354e 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -59,6 +59,7 @@ sub _req_svn {
 use Getopt::Long qw/:config gnu_getopt no_ignore_case auto_abbrev/;
 use IPC::Open3;
 use Git;
+use Memoize;  # core since 5.8.0, Jul 2002
 
 BEGIN {
        # import functions from Git into our packages, en masse
@@ -72,6 +73,8 @@ BEGIN
                        *{"${package}::$_"} = \&{"Git::$_"};
                }
        }
+       Memoize::memoize 'Git::config';
+       Memoize::memoize 'Git::config_bool';
 }
 
 my ($SVN);
@@ -3210,6 +3213,8 @@ sub has_no_changes {
                Memoize::unmemoize 'check_cherry_pick';
                Memoize::unmemoize 'has_no_changes';
        }
+
+       Memoize::memoize 'Git::SVN::repos_root';
 }
 
 END {
@@ -5747,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};