Author: sparky
Date: Sun Jan 24 03:37:56 2010
New Revision: 11120
Modified:
toys/rsget.pl/Get/MegaUpload
Log:
- fix unify
Modified: toys/rsget.pl/Get/MegaUpload
==============================================================================
--- toys/rsget.pl/Get/MegaUpload (original)
+++ toys/rsget.pl/Get/MegaUpload Sun Jan 24 03:37:56 2010
@@ -37,7 +37,7 @@
unify:
my ($id) = /d=([A-Z0-9]*)/;
my $host = "megaupload";
- $host = "megaporn" if m{^http://?:(www\.)?(?:megarotic|sexuploader)};
+ $host = "megaporn" if
m{^http://(?:www\.)?(?:megarotic|sexuploader|megaporn)};
return "http://$host.com/?d=$id";;
start:
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
