From 42f01a88d4b24c33c293c1fe68e8c3fe99c1ce7e Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 6 Aug 2019 19:05:28 -0600 Subject: [PATCH] parts/inc/ppphbin: Do calc once, and store in variable (cherry picked from commit ef5acaa4d66699bbf87a9051192c1db82f79d406) Signed-off-by: Nicolas R --- dist/Devel-PPPort/parts/inc/ppphbin | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/dist/Devel-PPPort/parts/inc/ppphbin b/dist/Devel-PPPort/parts/inc/ppphbin index ee8bf89..bdbceac 100644 --- a/dist/Devel-PPPort/parts/inc/ppphbin +++ b/dist/Devel-PPPort/parts/inc/ppphbin @@ -66,6 +66,8 @@ strip() if $opt{strip}; $opt{'compat-version'} = __MIN_PERL__ unless exists $opt{'compat-version'}; $opt{'compat-version'} = int_parse_version($opt{'compat-version'}); +my $int_min_perl = int_parse_version(__MIN_PERL__); + # Each element of this hash looks something like: # 'Poison' => { # 'base' => '5.008000', @@ -98,7 +100,7 @@ if (exists $opt{'list-unsupported'}) { next if $API{$f}{inaccessible}; next if $API{$f}{experimental}; next unless $API{$f}{todo}; - next if int_parse_version($API{$f}{todo}) <= int_parse_version(__MIN_PERL__); + next if int_parse_version($API{$f}{todo}) <= $int_min_perl; print "$f ", '.'x(40-length($f)), " ", format_version($API{$f}{todo}), "\n"; } exit 0; -- 1.8.3.1