From d8a07bb7c52258a935b769c086ece6d3b2ae7fe5 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Mon, 13 Jan 2025 10:00:02 +1100
Subject: [PATCH] feature.h: use the correct format for U32 for
 cop_feature_bits

---
 feature.h        | 2 +-
 regen/feature.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/feature.h b/feature.h
index 87a84cd236fa..77cb34ab8e99 100644
--- a/feature.h
+++ b/feature.h
@@ -748,7 +748,7 @@ S_fetch_feature_bits_hh(pTHX_ HV *hh) {
 
 #define DUMP_FEATURE_BITS(file, cop) \
     STMT_START { \
-        PerlIO_printf(file, "0x%08x", cop->cop_features.bits[0]); \
+        PerlIO_printf(file, "0x%" U32xf, cop->cop_features.bits[0]); \
     } STMT_END
 
 #endif /* PERL_IN_DUMP_C */
diff --git a/regen/feature.pl b/regen/feature.pl
index 59ca415f4c8f..2dd260c7b259 100755
--- a/regen/feature.pl
+++ b/regen/feature.pl
@@ -585,7 +585,7 @@ sub longest {
 
 my $dump_bits = "STMT_START { \\\n        " .
   join(qq( \\\n        PerlIO_putc(file, ','); \\\n        ),
-       map { qq(PerlIO_printf(file, "0x%08x", cop->cop_features.bits[$_]);) }
+       map { qq(PerlIO_printf(file, "0x%" U32xf, cop->cop_features.bits[$_]);) }
        0 .. $cop_feature_size-1) .
   " \\\n    } STMT_END";