# +------------------------------------+
#
# InspIRCd: (C) 2002-2009 InspIRCd Development Team
-# See: http://www.inspircd.org/wiki/index.php/Credits
+# See: http://wiki.inspircd.org/Credits
#
# This program is free but copyrighted software; see
# the file COPYING for details.
my ($file) = @_;
open(FLAGS, $file) or return "";
while (<FLAGS>) {
- if ($_ =~ /^\/\* \$ModVersion: (.+) \*\/$/) {
+ if (m#(?:^/* \$|")ModVersion: (\S+)(?: \*\/$|")#) {
my $x = translate_functions($1, $file);
next if ($x eq "");
close(FLAGS);