SVN: toys/rsget.pl/RSGet/ListAdder.pm

[sparky]

Author: sparky
Date: Sat Jun 26 17:08:13 2010
New Revision: 11591

Modified:
   toys/rsget.pl/RSGet/ListAdder.pm
Log:
- allow ftp:// in uris


Modified: toys/rsget.pl/RSGet/ListAdder.pm
==============================================================================
--- toys/rsget.pl/RSGet/ListAdder.pm	(original)
+++ toys/rsget.pl/RSGet/ListAdder.pm	Sat Jun 26 17:08:13 2010
@@ -56,7 +56,7 @@
 	my $u = qr/[a-z0-9_-]+/;
 	my $tld = qr/[a-z]{2,8}/;
 	foreach ( split /\s+/s, $text ) {
-		next unless m{^(.*?)(https?://)?((?:$u\.)*$u\.$tld/.+)$};
+		next unless m{^(.*?)(https?://||ftp://)?((?:$u\.)*$u\.$tld/.+)$};
 		my $pre = $1;
 		my $proto = $2 || "http://";
 		my $uri = $proto . $3;