fix: preserve print operands after bareword handle fix

Avoid treating core operators, v-string prefixes, and immediate bareword
function calls after print as autovivified filehandles. This keeps the
DateTime::Calendar::Hebrew Dumper case working without regressing Perl core
tests that print qq(), v-strings, or B::svref_2object(...).

Generated with [Codex](https://openai.com/codex)

Co-Authored-By: Codex <codex@openai.com>

Author: fglock

src/main/java/org/perlonjava/frontend/parser/FileHandle.java

@@ -332,6 +332,23 @@ private static boolean isDoubleUnderscoreMagicBareword(String name) {
         return name.length() >= 4 && name.startsWith("__") && name.endsWith("__");
     }
 
+    private static boolean isVStringBarewordPrefix(String name) {
+        if (name.length() < 2 || name.charAt(0) != 'v') {
+            return false;
+        }
+        for (int i = 1; i < name.length(); i++) {
+            if (!Character.isDigit(name.charAt(i))) {
+                return false;
+            }
+        }
+        return true;
+    }
+
+    private static boolean isImmediatelyFollowedByOpenParen(Parser parser) {
+        return parser.tokenIndex < parser.tokens.size()
+                && "(".equals(parser.tokens.get(parser.tokenIndex).text);
+    }
+
     private static boolean shouldAutovivifyBarewordHandle(Parser parser, String name, boolean autovivifyUnknownBareword) {
         // Do not treat compile-time magic like __PACKAGE__ as print filehandles:
         // they match ^[A-Z_][A-Z0-9_]*$ but must fall through to the expression list
@@ -340,6 +357,20 @@ private static boolean shouldAutovivifyBarewordHandle(Parser parser, String name
             return false;
         }
 
+        if (isVStringBarewordPrefix(name)) {
+            return false;
+        }
+
+        // Perl treats `print foo("x")` as printing the result of foo(), while
+        // `print foo ("x")` can be a print to filehandle foo.
+        if (isImmediatelyFollowedByOpenParen(parser)) {
+            return false;
+        }
+
+        if (ParserTables.CORE_PROTOTYPES.containsKey(name)) {
+            return false;
+        }
+
         String normalizedName = normalizeBarewordHandle(parser, name);
         if (GlobalVariable.existsGlobalCodeRefAsScalar(normalizedName).getBoolean()) {
             return false;

src/test/resources/unit/print_bareword_filehandle.t

@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 3;
+use Test::More tests => 8;
 
 package PrintBarewordTarget;
 
@@ -31,6 +31,48 @@ sub KnownPrintArg {
 print KnownPrintArg $object;
 is($known_called, 1, 'known bareword after print remains a subroutine call');
 
+{
+    my $buffer = '';
+    open my $capture, '>', \$buffer or die $!;
+    my $old = select $capture;
+    my $ok = eval {
+        print q(a);
+        print qq(b);
+        print join('', 'c');
+        1;
+    };
+    my $error = $@;
+    select $old;
+    close $capture;
+    ok($ok, 'core operators after print are not bareword filehandles') or diag $error;
+    is($buffer, 'abc', 'print parses q, qq, and join as core operators');
+}
+
+{
+    my $buffer = '';
+    open my $capture, '>', \$buffer or die $!;
+    my $old = select $capture;
+    my $ok = eval {
+        print v65.66;
+        1;
+    };
+    my $error = $@;
+    select $old;
+    close $capture;
+    ok($ok, 'v-string after print is not a bareword filehandle') or diag $error;
+    is($buffer, 'AB', 'print parses v-string operands');
+}
+
+{
+    my $ok = eval {
+        print UnknownPrintFunction("x");
+        1;
+    };
+    my $error = $@;
+    ok(!$ok && $error =~ /Undefined subroutine .*UnknownPrintFunction/,
+        'bareword immediately followed by parens remains a subroutine call');
+}
+
 sub DeclaredOnly;
 
 {