r9017 - /scripts/qa/DebianQA/Watch.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Thu Nov 8 08:57:43 UTC 2007
Author: tincho-guest
Date: Thu Nov 8 08:57:42 2007
New Revision: 9017
URL: http://svn.debian.org/wsvn/?sc=1&rev=9017
Log:
Fixxed an issue with patterns in directories
Modified:
scripts/qa/DebianQA/Watch.pm
Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=9017&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Thu Nov 8 08:57:42 2007
@@ -188,12 +188,15 @@
my($filter, $base, $remaining) = @_;
debug("recurse_dirs($filter, $base, $remaining)");
+ if($base =~ s{/([^/]*?\(.*)}{}) {
+ $remaining = "$1/$remaining";
+ }
my @rparts = split(/\/+/, $remaining) if($remaining);
while(@rparts and $rparts[0] !~ /\(/) {
$base .= "/" . shift @rparts;
}
if(@rparts) {
- my ($status, @data) = recurse_dirs($rparts[0], $base, "");
+ my ($status, @data) = recurse_dirs($rparts[0]."/?", $base, "");
return $status unless(@data);
@data = sort({ deb_compare_nofail($a->{upstream_version},
$b->{upstream_version}) } @data);
More information about the Pkg-perl-cvs-commits
mailing list