aboutsummaryrefslogtreecommitdiffstats
path: root/URPM.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-13 20:35:58 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-13 20:35:58 +0000
commit5c3008cb49df3a647ab4fa964cf21738a7d11cc9 (patch)
treee3a212177ccda868c5b3edb85cf79b439877e4f8 /URPM.pm
parent695c9b642a11c38b388b2575872d4e789dee0d22 (diff)
downloadperl-URPM-5c3008cb49df3a647ab4fa964cf21738a7d11cc9.tar
perl-URPM-5c3008cb49df3a647ab4fa964cf21738a7d11cc9.tar.gz
perl-URPM-5c3008cb49df3a647ab4fa964cf21738a7d11cc9.tar.bz2
perl-URPM-5c3008cb49df3a647ab4fa964cf21738a7d11cc9.tar.xz
perl-URPM-5c3008cb49df3a647ab4fa964cf21738a7d11cc9.zip
perl_checker fix
Diffstat (limited to 'URPM.pm')
-rw-r--r--URPM.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/URPM.pm b/URPM.pm
index 84da16f..e571a77 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -120,7 +120,7 @@ sub traverse_tag {
}
} elsif ($tag eq 'triggeredby' || $tag eq 'path') {
foreach (@{$urpm->{depslist} || []}) {
- if (grep { exists $names{$_} } $_->files, grep { /^\// } $_->provides_nosense) {
+ if (grep { exists $names{$_} } $_->files, grep { m!^/! } $_->provides_nosense) {
$callback and $callback->($_);
++$count;
}