Changeset Navigation

Changeset 1736

Timestamp:

10/13/06 16:31:33

Author:

miyagawa

Message:

fixed BAD regexp on stage6 here as well

Files:

r1708	r1736
1	1	sub handle {
2	2	my ($self, $url) = @_;
3		$url =~ qr!http://stage6\.divx\.com/(?:[\w-+]+/show_video\|members/\d+/videos\|content/show)/\d+!;
	3	$url =~ qr!http://stage6\.divx\.com/(?:[\w\-\+]+/show_video\|members/\d+/videos\|content/show)/\d+!;
4	4	}
5	5