CC-tea/screen
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/screen.git synced 2026-02-10 01:12:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

mktar.pl: get version from the configure.ac file

Browse Source
This commit is contained in:
Alexander Naumov
2024-08-27 01:51:09 +02:00
parent 44f804d5f5
commit 879d0ebb86
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
mktar.pl
View File

@@ -8,7 +8,7 @@
use Data::Dumper;
my $srcdir = 'src';
my $version_file = "$srcdir/patchlevel.h";
my $version_file = "$srcdir/configure.ac";
my %symlinks =
(
'FAQ' => 'doc/FAQ',
@@ -26,13 +26,9 @@ for my $l (keys %symlinks)
my %version;
open IN, "<", $version_file or die "unable to read $version_file: $!";
while (defined(my $line = <IN>))
{
$version{$1} = (defined $3) ? $3 : $4 if $line =~ m{^#\s*define\s+(\w+)\s+("([^"]*)"|(\S+))};
}
$version = $1 if <IN> =~ /AC_INIT\(\[[^\]]+\],\[(\d+\.\d+\.\d+)\]/;
close IN;
my $version = "$version{REV}.$version{VERS}.$version{PATCHLEVEL}";
my $tmpdir = "/tmp/mktar-$^T";
mkdir $tmpdir or die "cannot mkdir $tmpdir: $!";
system "cp -a $srcdir $tmpdir" and die "'cp -a $srcdir $tmpdir' failed: $!";