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

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Fri Feb 1 05:19:16 UTC 2008


Author: tincho-guest
Date: Fri Feb  1 05:19:15 2008
New Revision: 13933

URL: http://svn.debian.org/wsvn/?sc=1&rev=13933
Log:
Correctly handle uscan lines with only one argument

Modified:
    scripts/qa/DebianQA/Watch.pm

Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=13933&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Fri Feb  1 05:19:15 2008
@@ -147,7 +147,7 @@
     # or URL/pattern + extra
     if($items[0] =~ /\(/) {
         # Since '+' is greedy, the second capture has no slashes
-        ($dir, $filter) = $items[0] =~ m{^(.+)/(.+)$};
+        ($dir, $filter) = $items[0] =~ m{^(.+/)(.+)$};
     } elsif(@items >= 2 and $items[1] =~ /\(/) {
         # or, we have a homepage plus pattern
         # (plus optional other non-interesting stuff)




More information about the Pkg-perl-cvs-commits mailing list