r8903 - /scripts/qa/DebianQA/Watch.pm

[tincho-guest at users.alioth.debian.org]

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");