From 2123952738e1cf681698e3643963bc5c090e766a Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 29 Mar 2021 17:58:48 -0700
Subject: [PATCH] improve error message about operator in indirect object
 location

---
 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 05356a25..9ea64ed1 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -5017,7 +5017,9 @@ sub operator_expected {
             # For example, from RT#130344:
             #   use lib $FindBin::Bin . '/lib';
             if ( $statement_type ne 'use' ) {
-                complain("operator in print statement not recommended\n");
+                complain(
+"operator in possible indirect object location not recommended\n"
+                );
             }
             $op_expected = OPERATOR;
         }
-- 
2.39.5