diff options
Diffstat (limited to 'config')
-rwxr-xr-x | config/getver.pl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/config/getver.pl b/config/getver.pl new file mode 100755 index 0000000..9118a5b --- /dev/null +++ b/config/getver.pl @@ -0,0 +1,29 @@ +#!/usr/bin/env perl + +# Simple script to extract the version number parts from +# src/version.h. This must be run in the project root. It is used by +# configure.ac + +use strict; + +my $key = shift; + +open FH, "<src/gd.h" # old-style filehandle for max. portability + or die "Unable to open 'version.h' for reading.\n"; + +while(<FH>) { + next unless m{version605b5d1778}; + next unless /^#define\s+GD_([A-Z0-9]+)_VERSION+\s+(\S+)/; + my ($lk, $lv) = ($1, $2); + if ($lk eq $key) { + chomp $lv; + $lv =~ s/"//g; + + print $lv; # no newline + exit(0); # success! + } +} + +close(FH); + +exit(1); # failure |