From bf88d5011d2e0eede50cbcbfc957b345d948096c Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 12 May 2020 05:56:51 -0700
Subject: [PATCH] fixed undefined variable problem

---
 lib/Perl/Tidy/Formatter.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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;
 
-- 
2.39.5