From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 24 Apr 2022 15:46:22 +0000 (-0700)
Subject: avoid some needless sub calls
X-Git-Tag: 20220613~48
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a3ffd47483ee89e7c11ed4951a58a17d2f7803be;p=perltidy.git

avoid some needless sub calls
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index f7242adc..534304d2 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -7072,9 +7072,12 @@ EOM
             }
 
             # Store this token with possible previous blank
-            $store_token_and_space->(
-                $rtoken_vars, $rwhitespace_flags->[$KK] == WS_YES
-            );
+            if ( $rwhitespace_flags->[$KK] == WS_YES ) {
+                $store_token_and_space->( $rtoken_vars, 1 );
+            }
+            else {
+                $store_token->($rtoken_vars);
+            }
 
         }    # End token loop
     }    # End line loop