change to avoid perlcritic complaint

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 21b634c671ada52666fdc3bca2f52b5879e336ba..4596c002624a72ad10d829d3d810d83886a7c4b0 100644 (file)
--- 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;
 }