From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 12 May 2020 12:56:51 +0000 (-0700)
Subject: fixed undefined variable problem
X-Git-Tag: 20200619~33
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=bf88d5011d2e0eede50cbcbfc957b345d948096c;p=perltidy.git

fixed undefined variable problem
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index e1c987fa..b41896cc 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -8389,9 +8389,12 @@ sub starting_one_line_block {
     }
 
     # the previous nonblank token should start these block types
-    elsif (( $i_last_nonblank >= 0 && $previous_nonblank_token eq $block_type )
-        || $block_type =~ /$ANYSUB_PATTERN/
-        || $block_type =~ /\(\)/ )
+    elsif (
+        $i_last_nonblank >= 0
+        && (   $previous_nonblank_token eq $block_type
+            || $block_type =~ /$ANYSUB_PATTERN/
+            || $block_type =~ /\(\)/ )
+      )
     {
         $i_start = $i_last_nonblank;