lstat_cache(): print a warning if doing ping-pong between cache types

diff --git a/git-add--interactive.perl b/git-add--interactive.perl
index be8ca8ebb29511d710e86eb70b3293774a1e8c59..5f129a42030917bc5dcab67aeaf67a5f00c17677 100755 (executable)
--- a/git-add--interactive.perl
+++ b/git-add--interactive.perl
@@ -14,7 +14,8 @@
        ) : ();
 my $error_color = ();
 if ($menu_use_color) {
-       my $help_color_spec = $repo->config('color.interactive.help');
+       my $help_color_spec = ($repo->config('color.interactive.help') or
+                               'red bold');
        $error_color = $repo->get_color('color.interactive.error',
                                        $help_color_spec);
 }
@@ -40,9 +41,12 @@
 my $normal_color = $repo->get_color("", "reset");
 
 my $use_readkey = 0;
+sub ReadMode;
+sub ReadKey;
 if ($repo->config_bool("interactive.singlekey")) {
        eval {
-               use Term::ReadKey;
+               require Term::ReadKey;
+               Term::ReadKey->import;
                $use_readkey = 1;
        };
 }