diff --git a/lib/SLUB/LZA/TA/Command/init.pm b/lib/SLUB/LZA/TA/Command/init.pm index 990df2557fa34e7e6041f357d0bad9993c8feafb..b16ef4dd3c5f4ece0a78d354fd9ffe1a29c995b1 100644 --- a/lib/SLUB/LZA/TA/Command/init.pm +++ b/lib/SLUB/LZA/TA/Command/init.pm @@ -44,7 +44,15 @@ sub execute { #$config{logdir} = $opt->{logdir}; $config{http_only} = $opt->{http_only}; my $in_test = $ENV{TEST_ACTIVE}; - local *IO::Prompt::Tiny::_is_interactive = sub {$in_test}; # fake it for testing + # next lines to fake interactive for testing + local *IO::Prompt::Tiny::_is_interactive = *IO::Prompt::Tiny::_is_interactive; + if ($in_test) { + *IO::Prompt::Tiny::_is_interactive = sub {$in_test}; + } + if (defined $opt->{debug}) { + say STDERR "Is test active? ", $ENV{TEST_ACTIVE} ? "true" : "false"; + say STDERR "Is interactive? ", IO::Prompt::Tiny::_is_interactive() ? "true" : "false"; + } say STDERR "HINT: The password stored in config file!"; my $user = prompt('User:'); RETRY: