diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-13 20:35:58 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-13 20:35:58 +0000 |
| commit | 5c3008cb49df3a647ab4fa964cf21738a7d11cc9 (patch) | |
| tree | e3a212177ccda868c5b3edb85cf79b439877e4f8 | |
| parent | 695c9b642a11c38b388b2575872d4e789dee0d22 (diff) | |
| download | perl-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
| -rw-r--r-- | URPM.pm | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; } |