From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 30 Mar 2021 00:58:48 +0000 (-0700)
Subject: improve error message about operator in indirect object location
X-Git-Tag: 20210402~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2123952738e1cf681698e3643963bc5c090e766a;p=perltidy.git

improve error message about operator in indirect object location
---

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