Tiny variable improvement in Sisimai::SMTP::Transcript->rise

sisimai · Aug 15, 2024 · ba8aaab · ba8aaab
1 parent a768ece
commit ba8aaab
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/lib/Sisimai/SMTP/Transcript.pm b/lib/Sisimai/SMTP/Transcript.pm
@@ -90,10 +90,11 @@ sub rise {
 
                 for my $f ( split(" ", $parameters) ) {
                     # SIZE=22022, PROTO=SMTP, and so on
-                    my $p6 = index($f, '='); next if $p6 < 1;
-                    my $p7 = length $f;      next if $p7 < 3;
-                    my $ee = [split('=', $f)];  next unless scalar @$ee == 2;
-                    $cx->{'parameter'}->{ lc $ee->[0] } = $ee->[1];
+                    next if index($f, '=') < 1;
+                    next if length $f      < 3;
+
+                    my @ee = (split('=', $f)); next unless scalar @ee == 2;
+                    $cx->{'parameter'}->{ lc $ee[0] } = $ee[1];
                 }
             } else {
                 # HELO, EHLO, AUTH, DATA, QUIT or Other SMTP command