From 3a68ba3e4962f017f8575ef98fb387d0ca527d40 Mon Sep 17 00:00:00 2001
From: Remi Collet <fedora@famillecollet.com>
Date: Sat, 28 May 2016 09:23:50 +0200
Subject: gd-last: 2.2.1

---
 getver.pl | 42 ------------------------------------------
 1 file changed, 42 deletions(-)
 delete mode 100755 getver.pl

(limited to 'getver.pl')

diff --git a/getver.pl b/getver.pl
deleted file mode 100755
index 3838952..0000000
--- a/getver.pl
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/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
-- 
cgit