From b7448d6e10ef4863e44aedfe2423130623a02e5b Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 26 Jan 2024 07:39:15 -0800
Subject: [PATCH] fix unbraced file handle

---
 lib/Perl/Tidy/VerticalAligner.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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