git-svn-id: http://svn.inspircd.org/repository/trunk/inspircd@11401
e03df62e-2008-0410-955e-
edbf42e46eb7
my ($file) = @_;
open(FLAGS, $file) or return "";
while (<FLAGS>) {
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);
my $x = translate_functions($1, $file);
next if ($x eq "");
close(FLAGS);
#
# Feel free to add additional sources! :)
http://www.inspircd.com/modules/modules.lst
#
# Feel free to add additional sources! :)
http://www.inspircd.com/modules/modules.lst
+http://github.com/danieldg/insp-mods/raw/master/list