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