From 01760e5a7d13d5dab05b1eabdd4e3f7fdad6693a Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 29 Jan 2022 20:22:30 -0800
Subject: [PATCH] minor change in update for git82.

---
 lib/Perl/Tidy/Tokenizer.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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