diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-04-10 14:33:21 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-04-10 14:33:21 +0000 |
| commit | 552c8db48d48fd34cb59770d3f689bf4f1aefc22 (patch) | |
| tree | 6cf317a8f4d569f851b4a3947c7b89aa7499d779 /rpmtools.pm | |
| parent | 71b2cd9d3084e5abe287947d5b8a7bab36c5ac4d (diff) | |
| download | rpmtools-552c8db48d48fd34cb59770d3f689bf4f1aefc22.tar rpmtools-552c8db48d48fd34cb59770d3f689bf4f1aefc22.tar.gz rpmtools-552c8db48d48fd34cb59770d3f689bf4f1aefc22.tar.bz2 rpmtools-552c8db48d48fd34cb59770d3f689bf4f1aefc22.tar.xz rpmtools-552c8db48d48fd34cb59770d3f689bf4f1aefc22.zip | |
compatible with perl 5.005 and above.
Diffstat (limited to 'rpmtools.pm')
| -rw-r--r-- | rpmtools.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/rpmtools.pm b/rpmtools.pm index c65d300..f320a6f 100644 --- a/rpmtools.pm +++ b/rpmtools.pm @@ -198,11 +198,15 @@ sub build_hdlist { open B, "| $ENV{LD_LOADER} packdrake -b${ratio}ds '$hdlist' '$dir' 400000"; foreach (@{$params->{depslist}}) { if (my $keys = delete $names{$_->{name}}) { - print B "$_\n" foreach @$keys; + foreach (@$keys) { + print B "$_\n"; + } } } foreach (values %names) { - print B "$_\n" foreach @$_; + foreach (@$_) { + print B "$_\n"; + } } close B or die "packdrake failed\n"; @@ -555,7 +559,9 @@ sub read_provides { while (<$FILE>) { chomp; my ($k, @v) = split '@'; - $params->{provides}{$k}{$_} = undef foreach @v; + foreach (@v) { + $params->{provides}{$k}{$_} = undef; + } } } |