fix unbraced file handle

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 981d784d3023c0a7015b1b49ccba6e3f9da52eaf..547422f54c645ed76bbdb8cf9aa025454c345ff6 100644 (file)
--- 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;
     }