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 "";