r9184 - /scripts/qa/DebianQA/Watch.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Sat Nov 10 10:53:49 UTC 2007
Author: tincho-guest
Date: Sat Nov 10 10:53:49 2007
New Revision: 9184
URL: http://svn.debian.org/wsvn/?sc=1&rev=9184
Log:
Also detect tags <a> when the href is surrounded by single quotes.
Modified:
scripts/qa/DebianQA/Watch.pm
Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=9184&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Sat Nov 10 10:53:49 2007
@@ -232,8 +232,8 @@
if($base =~ /^ftp/) {
@candidates = split(/\s+/, $page);
} else {
- @candidates = grep(defined,
- ($page =~ m{<a\s[^>]*href\s*=\s*(?:"([^"]+)"|([^"]\S+))}gi));
+ @candidates = grep(defined, ($page =~
+ m{<a\s[^>]*href\s*=\s*(?:"([^"]+)"|'([^']+)'|([^"]\S+))}gi));
}
my @vers;
foreach my $url (grep(m{^$pattern$}, @candidates)) {
More information about the Pkg-perl-cvs-commits
mailing list