From 818a53e13ab7d86f84231aa30bac2956a93ea292 Mon Sep 17 00:00:00 2001 From: w00t Date: Tue, 4 Aug 2009 21:49:35 +0000 Subject: Track installed module versions, so we can do upgrades properly. git-svn-id: http://svn.inspircd.org/repository/trunk/inspircd@11489 e03df62e-2008-0410-955e-edbf42e46eb7 --- make/configure.pm | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) (limited to 'make/configure.pm') diff --git a/make/configure.pm b/make/configure.pm index 05db6004e..ae88d90ce 100644 --- a/make/configure.pm +++ b/make/configure.pm @@ -20,7 +20,7 @@ use warnings FATAL => qw(all); use Exporter 'import'; use POSIX; use make::utilities; -our @EXPORT = qw(promptnumeric dumphash is_dir getmodules getrevision getcompilerflags getlinkerflags getdependencies getmodversion nopedantic resolve_directory yesno showhelp promptstring_s); +our @EXPORT = qw(promptnumeric dumphash is_dir getmodules getrevision getcompilerflags getlinkerflags getdependencies nopedantic resolve_directory yesno showhelp promptstring_s); my $no_svn = 0; @@ -122,21 +122,6 @@ sub getdependencies { return ""; } -sub getmodversion { - my ($file) = @_; - open(FLAGS, $file) or return ""; - while () { - if (m#(?:^/* \$|")ModVersion: (\S+)(?: \*\/$|")#) { - my $x = translate_functions($1, $file); - next if ($x eq ""); - close(FLAGS); - return $x; - } - } - close(FLAGS); - return ""; -} - sub nopedantic { my ($file) = @_; open(FLAGS, $file) or return ""; -- cgit v1.2.3