fix: add _charnames.pm patch to sync.pl

dev/import-perl5/config.yaml

@@ -219,6 +219,7 @@ imports:
   # From core library
   - source: perl5/lib/_charnames.pm
     target: src/main/perl/lib/_charnames.pm
+    patch: _charnames.pm.patch
 
   # From core library
   - source: perl5/lib/charnames.pm

dev/import-perl5/patches/_charnames.pm.patch

@@ -0,0 +1,32 @@
+--- perl5/lib/_charnames.pm	2025-12-11 14:13:49
++++ src/main/perl/lib/_charnames.pm	2026-04-08 09:40:13
+@@ -137,6 +137,12 @@
+   return if $txt;
+
+   $txt = do "unicore/Name.pl";
++  if (!defined $txt || $txt eq '') {
++    # unicore/Name.pl not available (e.g. on PerlOnJava);
++    # set $txt to a truthy placeholder so we don't retry and crash.
++    # viacode() will fall back to _java_viacode() for name lookups.
++    $txt = "# unavailable\n";
++  }
+   Internals::SvREADONLY($txt, 1);
+ }
+
+@@ -805,6 +811,16 @@
+     if (defined $algorithmic) {
+       $viacode{$hex} = $algorithmic;
+       return $algorithmic;
++    }
++
++    # Try Java-backed ICU4J name lookup if available (PerlOnJava).
++    # This provides complete Unicode name data without needing unicore/Name.pl.
++    if (defined &_java_viacode) {
++        my $java_name = _java_viacode(CORE::hex $hex);
++        if (defined $java_name && $java_name ne '') {
++            $viacode{$hex} = $java_name;
++            return $java_name;
++        }
+     }
+
+     # Return the official name, if exists.  It's unclear to me (khw) at

gradle/libs.versions.toml

@@ -5,7 +5,7 @@ fastjson2 = "2.0.61"
 icu4j = "78.3"
 junit-jupiter = "6.1.0-M1"
 snakeyaml-engine = "3.0.1"
-sqlite-jdbc = "3.49.1.0"
+sqlite-jdbc = "3.51.3.0"
 tomlj = "1.1.1"
 
 [libraries]

pom.xml

@@ -73,7 +73,7 @@
         <dependency>
             <groupId>org.xerial</groupId>
             <artifactId>sqlite-jdbc</artifactId>
-            <version>3.49.1.0</version>
+            <version>3.51.3.0</version>
         </dependency>
         <!-- JNR-POSIX removed - using Java FFM API for native access (Java 22+) -->
     </dependencies>

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 = "3652e0b19";
+    public static final String gitCommitId = "cc2df66a9";
 
     /**
      * 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  8 2026 09:23:25";
+    public static final String buildTimestamp = "Apr  8 2026 09:46:56";
 
     // Prevent instantiation
     private Configuration() {

src/main/perl/lib/English.pm

@@ -1,6 +1,6 @@
 package English;
 
-our $VERSION = '1.11';
+our $VERSION = '1.12';
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -191,8 +191,6 @@ sub import {
 # Error status.
 
 	*CHILD_ERROR				= *?	;
-	*OS_ERROR				= *!	;
-	    *ERRNO				= *!	;
 	*OS_ERROR				= *!	;
 	    *ERRNO				= *!	;
 	*EXTENDED_OS_ERROR			= *^E	;

src/main/perl/lib/Pod/Simple.pm

@@ -11,7 +11,7 @@ use Pod::Simple::TiedOutFH;
 #use utf8;
 
 our @ISA = ('Pod::Simple::BlackBox');
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 
 our @Known_formatting_codes = qw(I B C L E F S U X Z);
 our %Known_formatting_codes = map(($_=>1), @Known_formatting_codes);

src/main/perl/lib/Pod/Simple/BlackBox.pm

@@ -22,7 +22,7 @@ use integer; # vroom!
 use strict;
 use warnings;
 use Carp ();
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 #use constant DEBUG => 7;
 
 sub my_qr ($$) {

src/main/perl/lib/Pod/Simple/Checker.pm

@@ -8,7 +8,7 @@ use warnings;
 use Carp ();
 use Pod::Simple::Methody ();
 use Pod::Simple ();
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 our @ISA = ('Pod::Simple::Methody');
 BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
           ? \&Pod::Simple::DEBUG

src/main/perl/lib/Pod/Simple/Debug.pm

@@ -1,6 +1,6 @@
 package Pod::Simple::Debug;
 use strict;
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 
 sub import {
   my($value,$variable);

src/main/perl/lib/Pod/Simple/DumpAsText.pm

@@ -1,6 +1,6 @@
 package Pod::Simple::DumpAsText;
 use strict;
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 use Pod::Simple ();
 BEGIN { our @ISA = ('Pod::Simple')}
 

src/main/perl/lib/Pod/Simple/DumpAsXML.pm

@@ -1,6 +1,6 @@
 package Pod::Simple::DumpAsXML;
 use strict;
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 use Pod::Simple ();
 BEGIN {our @ISA = ('Pod::Simple')}
 

src/main/perl/lib/Pod/Simple/HTML.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Pod::Simple::PullParser ();
 our @ISA = ('Pod::Simple::PullParser');
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 BEGIN {
   if(defined &DEBUG) { } # no-op
   elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG }
@@ -798,7 +798,8 @@ sub resolve_man_page_link {
 
   return $self->man_url_prefix . "$section/"
       . $self->manpage_url_escape($page) . ".$section"
-      . $self->man_url_postfix;
+      . $self->man_url_postfix
+      . (defined $frag ? '#' . $frag : '');
 }
 
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

src/main/perl/lib/Pod/Simple/HTMLBatch.pm

@@ -1,6 +1,6 @@
 package Pod::Simple::HTMLBatch;
 use strict;
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 our @ISA = ();  # Yup, we're NOT a subclass of Pod::Simple::HTML!
 
 # TODO: nocontents stylesheets. Strike some of the color variations?
@@ -717,12 +717,13 @@ sub _gen_css_wad {
   }
 
   # Now a few indexless variations:
-  for (my ($outfile, $variation) = each %{{
+  my %variations = (
       blkbluw => 'black_with_blue_on_white',
       whtpurk => 'white_with_purple_on_black',
       whtgrng => 'white_with_green_on_grey',
       grygrnw => 'grey_with_green_on_white',
-  }}) {
+  );
+  for (my ($outfile, $variation) = each %variations) {
     my $this_css = join "\n",
       "/* This file is autogenerated.  Do not edit.  $outfile */\n",
       "\@import url(\"./_$variation.css\");",

src/main/perl/lib/Pod/Simple/LinkSection.pm

@@ -4,7 +4,7 @@ package Pod::Simple::LinkSection;
 use strict;
 use warnings;
 use Pod::Simple::BlackBox;
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 
 use overload( # So it'll stringify nice
   '""'   => \&Pod::Simple::BlackBox::stringify_lol,

src/main/perl/lib/Pod/Simple/Methody.pm

@@ -2,7 +2,7 @@ package Pod::Simple::Methody;
 use strict;
 use warnings;
 use Pod::Simple ();
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 our @ISA = ('Pod::Simple');
 
 # Yes, we could use named variables, but I want this to be impose

src/main/perl/lib/Pod/Simple/Progress.pm

@@ -2,7 +2,7 @@ package Pod::Simple::Progress;
 use strict;
 use warnings;
 
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 
 # Objects of this class are used for noting progress of an
 #  operation every so often.  Messages delivered more often than that

src/main/perl/lib/Pod/Simple/PullParser.pm

@@ -1,6 +1,6 @@
 package Pod::Simple::PullParser;
 use strict;
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 use Pod::Simple ();
 BEGIN {our @ISA = ('Pod::Simple')}
 

src/main/perl/lib/Pod/Simple/PullParserEndToken.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Pod::Simple::PullParserToken ();
 our @ISA = ('Pod::Simple::PullParserToken');
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 
 sub new {  # Class->new(tagname);
   my $class = shift;

src/main/perl/lib/Pod/Simple/PullParserStartToken.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Pod::Simple::PullParserToken ();
 our @ISA = ('Pod::Simple::PullParserToken');
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 
 sub new {  # Class->new(tagname, optional_attrhash);
   my $class = shift;

src/main/perl/lib/Pod/Simple/PullParserTextToken.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Pod::Simple::PullParserToken ();
 our @ISA = ('Pod::Simple::PullParserToken');
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 
 sub new {  # Class->new(text);
   my $class = shift;

src/main/perl/lib/Pod/Simple/PullParserToken.pm

@@ -1,7 +1,7 @@
 package Pod::Simple::PullParserToken;
  # Base class for tokens gotten from Pod::Simple::PullParser's $parser->get_token
 our @ISA = ();
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 use strict;
 
 sub new {  # Class->new('type', stuff...);  ## Overridden in derived classes anyway

src/main/perl/lib/Pod/Simple/RTF.pm

@@ -6,7 +6,7 @@ use warnings;
 #sub Pod::Simple::DEBUG () {4};
 #sub Pod::Simple::PullParser::DEBUG () {4};
 
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 use Pod::Simple::PullParser ();
 our @ISA;
 BEGIN {@ISA = ('Pod::Simple::PullParser')}

src/main/perl/lib/Pod/Simple/Search.pm

@@ -2,7 +2,7 @@ package Pod::Simple::Search;
 use strict;
 use warnings;
 
-our $VERSION = '3.47';   ## Current version of this package
+our $VERSION = '3.48';   ## Current version of this package
 
 BEGIN { *DEBUG = sub () {0} unless defined &DEBUG; }   # set DEBUG level
 use Carp ();

src/main/perl/lib/Pod/Simple/SimpleTree.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Carp ();
 use Pod::Simple ();
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 BEGIN {
   our @ISA = ('Pod::Simple');
   *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;

src/main/perl/lib/Pod/Simple/Text.pm

@@ -4,7 +4,7 @@ use warnings;
 use Carp ();
 use Pod::Simple::Methody ();
 use Pod::Simple ();
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 our @ISA = ('Pod::Simple::Methody');
 BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
           ? \&Pod::Simple::DEBUG

src/main/perl/lib/Pod/Simple/TextContent.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Carp ();
 use Pod::Simple ();
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 our @ISA = ('Pod::Simple');
 
 sub new {

src/main/perl/lib/Pod/Simple/TiedOutFH.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Symbol ('gensym');
 use Carp ();
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 

src/main/perl/lib/Pod/Simple/Transcode.pm

@@ -1,6 +1,6 @@
 package Pod::Simple::Transcode;
 use strict;
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 
 BEGIN {
   if(defined &DEBUG) {;} # Okay

src/main/perl/lib/Pod/Simple/TranscodeDumb.pm

@@ -1,6 +1,6 @@
 package Pod::Simple::TranscodeDumb;
 use strict;
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 # This module basically pretends it knows how to transcode, except
 #  only for null-transcodings!  We use this when Encode isn't
 #  available.

src/main/perl/lib/Pod/Simple/TranscodeSmart.pm

@@ -7,7 +7,7 @@ use strict;
 use warnings;
 use Pod::Simple;
 use Encode;
-our $VERSION = '3.47';
+our $VERSION = '3.48';
 
 sub is_dumb  {0}
 sub is_smart {1}