r8903 - /scripts/qa/DebianQA/Watch.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Tue Nov 6 09:58:36 UTC 2007
Author: tincho-guest
Date: Tue Nov 6 09:58:36 2007
New Revision: 8903
URL: http://svn.debian.org/wsvn/?sc=1&rev=8903
Log:
Fix in cpan regex
Modified:
scripts/qa/DebianQA/Watch.pm
Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=8903&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Tue Nov 6 09:58:36 2007
@@ -25,7 +25,7 @@
use LWP::UserAgent;
my $cpanregex =
-qr#^(?:http|ftp)://\S*cpan\S*/(modules/by-module|(?:by-)?authors/id)\b#;
+qr#^(?:http|ftp)://\S*cpan\S*/(modules/by-module|(?:by-)?authors/id)\b#i;
my $ua = new LWP::UserAgent;
$ua->timeout(10);
@@ -203,7 +203,7 @@
$base = $1;
my $cpan = cpan_download()->{$base};
my $olddir = $dir;
- $dir =~ s/$cpanregex//;
+ $dir =~ s/$cpanregex//i;
$dir =~ s{/+$}{};
$dir =~ s{^/+}{};
debug("Looking for $dir + $filter into CPAN $base cache");
More information about the Pkg-perl-cvs-commits
mailing list