From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 5 Sep 2020 22:50:42 +0000 (-0700)
Subject: change to avoid perlcritic complaint
X-Git-Tag: 20200907~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=551ff49fca62d080de68a145fc5e243ab2c9d4d7;p=perltidy.git

change to avoid perlcritic complaint
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 21b634c6..4596c002 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -459,14 +459,16 @@ sub trim {
 }
 
 sub max {
-    my $max  = shift; 
-    for (@_) { $max = $_ > $max ? $_ : $max };
+    my (@vals) = @_;
+    my $max = shift @vals;
+    for (@vals) { $max = $_ > $max ? $_ : $max }
     return $max;
 }
 
 sub min {
-    my $min  = shift; 
-    for (@_) { $min = $_ < $min ? $_ : $min };
+    my (@vals) = @_;
+    my $min = shift @vals;
+    for (@vals) { $min = $_ < $min ? $_ : $min }
     return $min;
 }