From ac9cc9940456a089b4ae681966fd3e86a0b6b268 Mon Sep 17 00:00:00 2001 From: brian d foy Date: Tue, 10 Sep 2024 10:53:20 -0400 Subject: [PATCH] fix --version message to not have uninitialized values --- script/cpan-audit | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/script/cpan-audit b/script/cpan-audit index 79a50a6..225827d 100755 --- a/script/cpan-audit +++ b/script/cpan-audit @@ -121,7 +121,14 @@ sub format_text { sub output_version { my( $class, $exit_code ) = @_; - print "$0 version $VERSION using:\n\tCPAN::Audit @{[ CPAN::Audit->VERSION ]}\n\tCPANSA::DB @{[ CPANSA::DB->VERSION ]}\n"; + print <<"HERE"; +$0 version $VERSION using: +\tCPAN::Audit @{[ CPAN::Audit->VERSION ]} +\tCPAN::Audit::DB @{[ CPAN::Audit::DB->VERSION // '' ]} +\tCPANSA::DB @{[ CPANSA::DB->VERSION // '' ]} + +HERE + exit($exit_code); }