From 0c0408c21a0cd5330918d9eacf2debdbf5e6f1ac Mon Sep 17 00:00:00 2001
From: "Philippe Bruhat (BooK)" <book@cpan.org>
Date: Thu, 19 Dec 2024 10:06:20 +0100
Subject: [PATCH] fix perl_version in regen/regen_lib.pl

---
 lib/B/Op_private.pm | 2 +-
 regen/regen_lib.pl  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/B/Op_private.pm b/lib/B/Op_private.pm
index bd1a5ccd9f87..e83490082c93 100644
--- a/lib/B/Op_private.pm
+++ b/lib/B/Op_private.pm
@@ -118,7 +118,7 @@ package B::Op_private;
 our %bits;
 
 
-our $VERSION = "5.041007";
+our $VERSION = "41.007000";
 
 $bits{$_}{3} = 'OPpENTERSUB_AMPER' for qw(entersub rv2cv);
 $bits{$_}{6} = 'OPpENTERSUB_DB' for qw(entersub rv2cv);
diff --git a/regen/regen_lib.pl b/regen/regen_lib.pl
index a14ec4e01f56..9933d3df226f 100644
--- a/regen/regen_lib.pl
+++ b/regen/regen_lib.pl
@@ -377,7 +377,7 @@ sub perl_version {
     die "can't locate PERL_REVISION in '$plh'"   unless defined $v1;
     die "can't locate PERL_VERSION in '$plh'"    unless defined $v2;
     die "can't locate PERL_SUBVERSION in '$plh'" unless defined $v3;
-    return ($v1,$v2,$v3, sprintf("%d.%03d%03d", $v1, $v2, $v3));
+    return ($v2,$v3, 0, sprintf("%d.%03d%03d", $v2, $v3, 0));
 }