diff options
Diffstat (limited to 'missing_getver.patch')
| -rw-r--r-- | missing_getver.patch | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/missing_getver.patch b/missing_getver.patch new file mode 100644 index 000000000000..c69ea3047c3e --- /dev/null +++ b/missing_getver.patch @@ -0,0 +1,46 @@ +diff -ruNa libgd-2.1.1.orig/config/getver.pl libgd-2.1.1/config/getver.pl +--- libgd-2.1.1.orig/config/getver.pl 1970-01-01 01:00:00.000000000 +0100 ++++ libgd-2.1.1/config/getver.pl 2015-07-23 05:23:49.932676287 +0200 +@@ -0,0 +1,42 @@ ++#!/usr/bin/env perl ++ ++# Simple script to extract the version number parts from src/gd.h. If ++# called with the middle word of the version macro, it prints the ++# value of that macro. If called with no argument, it outputs a ++# human-readable version string. This must be run in the project ++# root. It is used by configure.ac and docs/naturaldocs/run_docs.sh. ++ ++use strict; ++ ++my $key = shift; ++my @version_parts = (); ++ ++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! ++ } ++ ++ push @version_parts, $lv if (!$key); ++} ++ ++close(FH); ++ ++if (scalar @version_parts == 4) { ++ my $result = join(".", @version_parts[0..2]); ++ $result .= $version_parts[3]; ++ $result =~ s/"//g; ++ print $result; ++ exit(0); ++} ++ ++exit(1); # failure |