mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add describe (patchlevel) to .git_patch and read it from make_patchnum.pl

Browse Source
This commit is contained in:
Thibault DUPONCHELLE 2025-02-07 23:08:10 +01:00 committed by Thibault Duponchelle
parent 368556a98d
commit d03bc0ca48
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.git_patch
View File

@ -1 +1 @@
$Format:%H|%ci|%D$
$Format:%H|%ci|%(describe)|%D$

4
make_patchnum.pl
View File

@ -135,7 +135,7 @@ if (my $patch_file= read_file(".patch")) {
}
elsif ($git_patch_file = read_file(".git_patch") and $git_patch_file !~ /\A\$Format:%H/) {
chomp $git_patch_file;
($commit_id, my $commit_date, my $names)
($commit_id, my $commit_date, $describe, my $names)
= split /\|/, $git_patch_file;
my @names = split /,\s*/, $names;
@ -146,7 +146,6 @@ elsif ($git_patch_file = read_file(".git_patch") and $git_patch_file !~ /\A\$For
}
if (!$branch) {
($branch) = map m{^tag: (.*)}, @names;
$describe = $branch;
}
if (!$branch) {
my ($pr) = map m{^refs/pull/([0-9]+)/}, @names;
@ -156,7 +155,6 @@ elsif ($git_patch_file = read_file(".git_patch") and $git_patch_file !~ /\A\$For
$branch = $names[0] || $commit_id;
}
$describe ||= $commit_id;
$extra_info = "git_commit_date='$commit_date'\n";
$extra_info .= "git_snapshot_date='$commit_date'\n";
$commit_title = "Snapshot of:";