fix(B,Sub::Name): honor Sub::Name-assigned CV names in B::GV->NAME

B::svref_2object($cv)->GV->NAME previously returned "__ANON__" for CVs
renamed via Sub::Name::subname or Sub::Util::set_subname, because B.pm
required `defined &{$fqn}` to trust the name. Real-Perl XS Sub::Name
updates the CV's CvGV/CvNAME_HEK directly and B reads those fields
without consulting any stash entry, so the name is honored even when
the sub was never installed as a glob.

The `defined &{$fqn}` check was originally added to handle stash
deletion/clearing (op/stash.t, uni/stash.t), so it cannot be removed
outright. Instead, track an explicit `explicitlyRenamed` flag on
RuntimeCode that is set by Sub::Name::subname and Sub::Util::set_subname,
and have B.pm trust the name whenever that flag is set.

- RuntimeCode: add `explicitlyRenamed` field
- SubName.java / SubUtil.java: set the flag when renaming
- SubName: expose private helper `Sub::Name::_is_renamed($cv)`
- B.pm: consult the flag before falling back to the stash check

Impact on Sub-Name-0.28 t/exotic_names.t: 1038 more tests now pass
(0 -> 1038 pass out of 1560). Remaining 522 failures are unrelated to
Sub::Name and stem from stash-aliasing semantics
(`*palatable:: = *{"aliased::native::..."}`).

No regressions in op/stash.t / uni/stash.t (75/105 before and after).

Generated with [Devin](https://cli.devin.ai/docs)

Co-Authored-By: Devin <158243242+devin-ai-integration[bot]@users.noreply.github.com>

Author: fglock

src/main/java/org/perlonjava/core/Configuration.java

@@ -33,7 +33,7 @@ public final class Configuration {
      * Automatically populated by Gradle/Maven during build.
      * DO NOT EDIT MANUALLY - this value is replaced at build time.
      */
-    public static final String gitCommitId = "687b74120";
+    public static final String gitCommitId = "a97176ff7";
 
     /**
      * Git commit date of the build (ISO format: YYYY-MM-DD).
@@ -48,7 +48,7 @@ public final class Configuration {
      * Parsed by App::perlbrew and other tools via: perl -V | grep "Compiled at"
      * DO NOT EDIT MANUALLY - this value is replaced at build time.
      */
-    public static final String buildTimestamp = "Apr 22 2026 14:52:02";
+    public static final String buildTimestamp = "Apr 22 2026 16:01:34";
 
     // Prevent instantiation
     private Configuration() {

src/main/java/org/perlonjava/runtime/perlmodule/SubName.java

@@ -2,6 +2,8 @@
 
 import org.perlonjava.runtime.runtimetypes.*;
 
+import static org.perlonjava.runtime.runtimetypes.RuntimeScalarCache.scalarFalse;
+import static org.perlonjava.runtime.runtimetypes.RuntimeScalarCache.scalarTrue;
 import static org.perlonjava.runtime.runtimetypes.RuntimeScalarType.*;
 
 /**
@@ -35,6 +37,8 @@ public static void initialize() {
         subName.defineExport("EXPORT_OK", "subname");
         try {
             subName.registerMethod("subname", null);  // No prototype to allow flexible args
+            // Private helper used by B.pm to detect CVs renamed via Sub::Name::subname.
+            subName.registerMethod("_is_renamed", null);
         } catch (NoSuchMethodException e) {
             System.err.println("Warning: Missing Sub::Name method: " + e.getMessage());
         }
@@ -81,6 +85,29 @@ public static RuntimeList subname(RuntimeArray args, int ctx) {
             }
             code.subName = fullName;
         }
+        // Mark the CV as explicitly renamed so B::svref_2object()->GV->NAME
+        // honors the assigned name even when no matching stash entry exists.
+        code.explicitlyRenamed = true;
         return codeRef.getList();
     }
+
+    /**
+     * _is_renamed CODEREF
+     *
+     * Private helper for B.pm. Returns a true scalar if the given code
+     * reference has been explicitly renamed via Sub::Name::subname (or
+     * Sub::Util::set_subname), otherwise an empty/false scalar. Non-CODE
+     * arguments yield false.
+     */
+    public static RuntimeList _is_renamed(RuntimeArray args, int ctx) {
+        if (args.size() != 1) {
+            return scalarFalse.getList();
+        }
+        RuntimeScalar ref = args.get(0);
+        if (ref.type != CODE) {
+            return scalarFalse.getList();
+        }
+        RuntimeCode code = (RuntimeCode) ref.value;
+        return (code.explicitlyRenamed ? scalarTrue : scalarFalse).getList();
+    }
 }

src/main/java/org/perlonjava/runtime/perlmodule/SubUtil.java

@@ -142,6 +142,9 @@ public static RuntimeList set_subname(RuntimeArray args, int ctx) {
         } else {
             code.subName = fullName;
         }
+        // Mark the CV as explicitly renamed so B::svref_2object()->GV->NAME
+        // honors the assigned name even when no matching stash entry exists.
+        code.explicitlyRenamed = true;
         return codeRef.getList();
     }
 }

src/main/java/org/perlonjava/runtime/runtimetypes/RuntimeCode.java

@@ -343,6 +343,12 @@ public static void clearInlineMethodCache() {
     public boolean isMapGrepBlock = false;
     // Flag to indicate this code is an eval BLOCK - non-local return should propagate through it
     public boolean isEvalBlock = false;
+    // Flag to indicate this CV has been explicitly renamed via Sub::Name::subname
+    // (or Sub::Util::set_subname). When set, B::svref_2object($cv)->GV->NAME should
+    // return the assigned name even if the resulting fully-qualified name does not
+    // correspond to an installed stash entry — matching real-Perl XS Sub::Name
+    // behaviour, where the CV's CvGV points to a free-floating GV with the name.
+    public boolean explicitlyRenamed = false;
 
     // Depth of active recursive calls to this subroutine, used by the
     // "Deep recursion on subroutine" warning. Incremented on entry and

src/main/perl/lib/B.pm

@@ -139,8 +139,16 @@ package B::CV {
                     # Verify the sub still exists in the stash. Stubs whose
                     # stash entry has been deleted/cleared/undefined should be
                     # treated as anonymous (matching Perl 5's GV anonymization).
+                    # Exception: CVs explicitly renamed via Sub::Name::subname
+                    # (or Sub::Util::set_subname) carry a private flag; in
+                    # real Perl their CvGV points to a free-floating GV with
+                    # the assigned name, and NAME should always reflect that.
                     no strict 'refs';
-                    if (defined &{"$fqn"}) {
+                    my $renamed = 0;
+                    if (exists $Sub::Name::{_is_renamed}) {
+                        $renamed = Sub::Name::_is_renamed($self->{ref}) ? 1 : 0;
+                    }
+                    if ($renamed || defined &{"$fqn"}) {
                         $self->{_pkg_name} = $pkg;
                         $self->{_sub_name} = $name;
                         $self->{_is_anon}  = 0;