Author: arekm Date: Sun Mar 8 20:42:54 2009 GMT
Module: admin Tag: HEAD
---- Log message:
One more place where dot is allowed.
---- Files affected:
admin/distfiles:
file-fetcher.pl (1.46 -> 1.47)
---- Diffs:
================================================================
Index: admin/distfiles/file-fetcher.pl
diff -u admin/distfiles/file-fetcher.pl:1.46
admin/distfiles/file-fetcher.pl:1.47
--- admin/distfiles/file-fetcher.pl:1.46 Sun Dec 16 17:50:31 2007
+++ admin/distfiles/file-fetcher.pl Sun Mar 8 21:42:49 2009
@@ -51,7 +51,7 @@
or die "$file: evil requester: $requester";
$req_login = "";
$requester =~ /^([...@]+)\@/ and $req_login = $1;
- $req_login =~ /^[a-z0-9A-Z_]+$/ or die "$file: evil requester $requester";
+ $req_login =~ /^[a-z0-9A-Z_\.]+$/ or die "$file: evil requester $requester";
my $flags = <F>;
$force_reply++ if ($flags =~ /force-reply/);
================================================================
---- CVS-web:
http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/admin/distfiles/file-fetcher.pl?r1=1.46&r2=1.47&f=u
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
