From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 30 Jan 2022 04:22:30 +0000 (-0800)
Subject: minor change in update for git82.
X-Git-Tag: 20211029.06^0
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=01760e5a7d13d5dab05b1eabdd4e3f7fdad6693a;p=perltidy.git

minor change in update for git82.
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 1c624f8c..37c06783 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -6131,11 +6131,13 @@ sub decrease_nesting_depth {
         }
 
         # Fix part #2 for git82: use saved type for propagation of type 'Z'
-        # through type L-R braces.
+        # through type L-R braces.  Perl seems to allow ${bareword}
+        # as an indirect object, but nothing much more complex than that.
         ( $statement_type, my $saved_type, my $saved_token ) =
           @{ $nested_statement_type[$aa][ $current_depth[$aa] ] };
         if (   $aa == BRACE
             && $saved_type eq 'Z'
+            && $last_nonblank_type eq 'w'
             && $brace_structural_type[$brace_depth] eq 'L' )
         {
             $last_nonblank_type = $saved_type;