diff --git a/awit-ssh b/awit-ssh index 08124850aae9aae99938f8151b347fa03c2ae0af..d2c3e6447487e98019b9613fba2fc754bf88ecc7 100755 --- a/awit-ssh +++ b/awit-ssh @@ -43,14 +43,18 @@ if (!eval {require IO::Prompt; 1;}) { print STDERR "You're missing IO::Prompt, try 'apt-get install libio-prompt-perl'\n"; exit 1; } +## no critic (BuiltinFunctions::ProhibitStringyEval) +eval qq( + use IO::Prompt qw(prompt); +); +## use critic use Digest::SHA qw( sha1_hex ); -use IO::Prompt qw( prompt ); use User::pwent; my $NAME = "AWIT-SSH-Client"; -our $VERSION = "0.6.0"; +our $VERSION = "0.6.1"; print(STDERR "$NAME v$VERSION - Copyright (c) 2016, AllWorldIT\n\n");