From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 26 Jan 2024 15:39:15 +0000 (-0800)
Subject: fix unbraced file handle
X-Git-Tag: 20240202~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b7448d6e10ef4863e44aedfe2423130623a02e5b;p=perltidy.git

fix unbraced file handle
---

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 981d784d..547422f5 100644
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -5196,7 +5196,7 @@ EOM
     # jump into a quote of some kind
     if ( $field2_trim !~ /^[\d\.\+\-abcdefpx_]+$/i ) {
         DEBUG_VSN
-          && print STDERR
+          && print {*STDERR}
 "Rejecting match to pat2='$pat2' with next=$next_char field2=$field2 trimmed='$field2_trim'\n";
         return;
     }