fix perl_version in regen/regen_lib.pl

Perl · Dec 19, 2024 · 0c0408c · 0c0408c
1 parent e37eb17
commit 0c0408c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/B/Op_private.pm b/lib/B/Op_private.pm
diff --git 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));
 }