admin: distfiles/specparser.pl - allow ";" in uris

[sparky]

Author: sparky                       Date: Thu Feb 25 13:06:24 2010 GMT
Module: admin                         Tag: HEAD
---- Log message:
- allow ";" in uris

---- Files affected:
admin/distfiles:
   specparser.pl (1.21 -> 1.22) 

---- Diffs:

================================================================
Index: admin/distfiles/specparser.pl
diff -u admin/distfiles/specparser.pl:1.21 admin/distfiles/specparser.pl:1.22
--- admin/distfiles/specparser.pl:1.21	Tue Dec 29 10:14:46 2009
+++ admin/distfiles/specparser.pl	Thu Feb 25 14:06:19 2010
@@ -217,7 +217,7 @@
 {
 	my ($no, $md5, $s) = @_;
 
-	if ($s =~ /^([a-z0-9A-Z:\=\?\@\+\~\.,\-\/_]|\%[0-9])+$/) {
+	if ($s =~ /^([a-z0-9A-Z;:\=\?\@\+\~\.,\-\/_]|\%[0-9])+$/) {
 		if ($s =~ /^(ftp|http|https):\/\//) {
 			if ($s =~ /\/$/) {
 				error("source $no ($s) is directory");
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/admin/distfiles/specparser.pl?r1=1.21&r2=1.22&f=u