diff options
author | Martin Mares <mj@ucw.cz> | 2006-09-09 14:52:34 +0200 |
---|---|---|
committer | Martin Mares <mj@ucw.cz> | 2006-09-09 14:52:34 +0200 |
commit | 1865e2dd6b4723e099ba79f9e6269822987ba281 (patch) | |
tree | d17fe0f1b9099512dcde58106e448757d1a8b309 /maint | |
parent | 028dffb2fc1007b8cffe53d6419466e507a17fde (diff) | |
download | pciutils-1865e2dd6b4723e099ba79f9e6269822987ba281.tar.gz |
Remind the maintainer about the current API version.
Diffstat (limited to 'maint')
-rwxr-xr-x | maint/release | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/maint/release b/maint/release index 9ec434d..63b6be0 100755 --- a/maint/release +++ b/maint/release @@ -6,6 +6,14 @@ use strict; use warnings; require "maint/release.pm"; +# Check API version +my $apiver = "???"; +open X, "lib/pci.h" or die; +while (<X>) { + /^#define PCI_LIB_VERSION 0x(.{6})$/ and $apiver = $1; +} +print "API version is $apiver ... <confirm> "; <STDIN>; + my $r = new UCW::Release("pciutils"); my $ver = $r->GetVersionFromFile("Makefile", "VERSION=(.*)"); $r->GetVersionsFromChangelog("ChangeLog", "Released as (.*)\."); |