diff options
Diffstat (limited to 'make')
| -rw-r--r-- | make/configure.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/make/configure.pm b/make/configure.pm index e9c1a04c3..ba586e3e6 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 nopedantic resolve_directory yesno showhelp promptstring_s); +our @EXPORT = qw(promptnumeric dumphash is_dir getmodules getrevision getcompilerflags getlinkerflags getdependencies getmodversion nopedantic resolve_directory yesno showhelp promptstring_s); my $no_svn = 0; @@ -117,6 +117,21 @@ sub getdependencies { return ""; } +sub getmodversion { + my ($file) = @_; + open(FLAGS, $file) or return ""; + while (<FLAGS>) { + if ($_ =~ /^\/\* \$ModVersion: (.+) \*\/$/) { + 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 ""; |