fix: resolve regressions in op/anonsub.t, comp/parser_run.t, re/pat_advanced.t

- B.pm: wrap require Sub::Util in eval in _introspect() so that
  Sub::Util loading failures (due to @inc reordering) fall back to
  __ANON__ defaults instead of dying (fixes op/anonsub.t test 9)
- IdentifierParser: format non-ASCII bytes as \xNN (uppercase, no braces)
  inside ${...} contexts to match Perl diagnostic format
  (fixes comp/parser_run.t test 66)
- re/pat_advanced.t: no longer crashes - the unicodeSetToJavaPattern()
  fix from previous commit properly handles supplementary characters

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 = "412bbcd58";
+    public static final String gitCommitId = "1f364d13f";
 
     /**
      * Git commit date of the build (ISO format: YYYY-MM-DD).

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

@@ -286,8 +286,12 @@ public static String parseComplexIdentifierInner(Parser parser, boolean insideBr
                             hex = "\\x{" + Integer.toHexString(cp) + "}";
                         }
                     } else if (cp <= 255) {
-                        // Perl tends to report non-ASCII bytes as \x{..} in these contexts
-                        hex = "\\x{" + Integer.toHexString(cp) + "}";
+                        if (insideBraces) {
+                            // Inside ${...}, Perl formats non-ASCII bytes as \xNN (uppercase, no braces)
+                            hex = String.format("\\x%02X", cp);
+                        } else {
+                            hex = "\\x{" + Integer.toHexString(cp) + "}";
+                        }
                     } else {
                         hex = "\\x{" + Integer.toHexString(cp) + "}";
                     }

src/main/perl/lib/B.pm

@@ -127,7 +127,8 @@ package B::CV {
         $self->{_pkg_name} = 'main';
         $self->{_is_anon}  = 1;
         if ($self->{ref} && ref($self->{ref}) eq 'CODE') {
-            require Sub::Util;
+            eval { require Sub::Util };
+            return if $@;  # Sub::Util not available, use defaults
             my $fqn = Sub::Util::subname($self->{ref});
             if (defined $fqn && $fqn ne '__ANON__') {
                 # Split "Package::Name::subname" into package and name