minor change in update for git82.

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 1c624f8c572e47f3625cadb0aa3ff9fe613c52b6..37c06783b93b846a6db415db88c4d8dc5e5a9727 100644 (file)
--- 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;