From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 19 Aug 2023 22:33:48 +0000 (-0700)
Subject: test to see if braced filehandle passes on all systems
X-Git-Tag: 20230701.03~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9536d2c936a2e592ad06cc1361844dda1bc0628d;p=perltidy.git

test to see if braced filehandle passes on all systems

If this passes everywhere I may update the other modules
---

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index ad456ee9..00e00c66 100644
--- a/lib/Perl/Tidy/VerticalAligner/Line.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Line.pm
@@ -21,7 +21,7 @@ sub AUTOLOAD {
     return if ( $AUTOLOAD =~ /\bDESTROY$/ );
     my ( $pkg, $fname, $lno ) = caller();
     my $my_package = __PACKAGE__;
-    print STDERR <<EOM;
+    print {*STDERR} <<EOM;
 ======================================================================
 Error detected in package '$my_package', version $VERSION
 Received unexpected AUTOLOAD call for sub '$AUTOLOAD'