pack "s>" was introduced in perl-5.10

Author: Tux

Configure

@@ -7686,22 +7686,25 @@ EOPL
 # of three digit per group separate by '.'s or '_'s. Names are extended
 # with ".0.0" to ensure at least three elements for the pack.
 #                                   -- H.Merijn Brand (m)'06 23-10-2006
+# pack "s>" was introduced in perl-5.10, so I had to rewrite this to an
+# sprintf approach to support bases systems with 5.6.x and 5.8.x
+#                                   -- H.Merijn Brand (m)'25 16-05-2025
 
 my @inc_version_list;
 my @candidates;
 # XXX Redo to do opendir/readdir?
 if (-d $stem) {
     chdir($stem);
     ;@candidates = map {
-	[ $_, pack "s>s>s>", split m/[._]/, "$_.0.0" ] } glob("5.*");
+	[ $_, sprintf "%04d%04d%04d", (split m/[._]/, "$_.0.0")[0,1,2] ] } glob("5.*");
     ;@candidates = sort { $a->[1] cmp $b->[1]} @candidates;
 }
 else {
     ;@candidates = ();
 }
 
 my ($pversion, $aversion, $vsn5005) = map {
-    pack "s>s>s>", split m/[._]/, "$_.0.0" } $version, $api_versionstring, "5.005";
+    sprintf "%04d%04d%04d", (split m/[._]/, "$_.0.0")[0,1,2] } $version, $api_versionstring, "5.005";
 foreach my $d (@candidates) {
     if ($d->[1] lt $pversion) {
 	if ($d->[1] ge $aversion) {
@@ -13345,10 +13348,6 @@ esac
 set i_fcntl
 eval $setvar
 
-: see if fdopendir exists
-set fdopendir d_fdopendir
-eval $inlibc
-
 : see if fork exists
 set fork d_fork
 eval $inlibc
@@ -14066,6 +14065,10 @@ eval $inlibc
 set fdim d_fdim
 eval $inlibc
 
+: see if fdopendir exists
+set fdopendir d_fdopendir
+eval $inlibc
+
 : see if fegetround exists
 set fegetround d_fegetround
 eval $inlibc
@@ -25044,6 +25047,7 @@ d_fd_macros='$d_fd_macros'
 d_fd_set='$d_fd_set'
 d_fdclose='$d_fdclose'
 d_fdim='$d_fdim'
+d_fdopendir='$d_fdopendir'
 d_fds_bits='$d_fds_bits'
 d_fegetround='$d_fegetround'
 d_ffs='$d_ffs'
@@ -25057,7 +25061,6 @@ d_flockproto='$d_flockproto'
 d_fma='$d_fma'
 d_fmax='$d_fmax'
 d_fmin='$d_fmin'
-d_fdopendir='$d_fdopendir'
 d_fork='$d_fork'
 d_fp_class='$d_fp_class'
 d_fp_classify='$d_fp_classify'