From d6de6295df667e55e75b6b5b9c7ef372df9735fd Mon Sep 17 00:00:00 2001 From: Andreas Guldstrand Date: Wed, 4 May 2016 00:15:59 +0200 Subject: SBO::Lib: get_sbo_version coerced false values to undef uselessly --- SBO-Lib/lib/SBO/Lib.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'SBO-Lib/lib/SBO/Lib.pm') diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index d7801cb..412d128 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -610,7 +610,7 @@ sub get_from_info { sub get_sbo_version { script_error('get_sbo_version requires an argument.') unless @_ == 1; my $version = get_from_info(LOCATION => shift, GET => 'VERSION'); - return $$version[0] ? $$version[0] : undef; + return $version->[0]; } # for each installed sbo, find out whether or not the version in the tree is -- cgit v1.2.3