diff options
Diffstat (limited to 'make')
| -rw-r--r-- | make/configure.pm | 17 |
1 files changed, 1 insertions, 16 deletions
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 (<FLAGS>) { - 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 ""; |