index be8ca8ebb29511d710e86eb70b3293774a1e8c59..5f129a42030917bc5dcab67aeaf67a5f00c17677 100755 (executable)
) : ();
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);
}
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;
};
}