diff options
author | Francois Pons <fpons@mandriva.com> | 2001-04-03 12:50:27 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2001-04-03 12:50:27 +0000 |
commit | db2545e316e7d1293241a5cd94668234aa1afd51 (patch) | |
tree | 0c7aec8fb590a2b2fd3b24c134baa50835025486 /rpmtools.pm | |
parent | 0c9ffe1302eb0ef019c674e9700de26201b5e5ae (diff) | |
download | rpmtools-db2545e316e7d1293241a5cd94668234aa1afd51.tar rpmtools-db2545e316e7d1293241a5cd94668234aa1afd51.tar.gz rpmtools-db2545e316e7d1293241a5cd94668234aa1afd51.tar.bz2 rpmtools-db2545e316e7d1293241a5cd94668234aa1afd51.tar.xz rpmtools-db2545e316e7d1293241a5cd94668234aa1afd51.zip |
*** empty log message ***
Diffstat (limited to 'rpmtools.pm')
-rw-r--r-- | rpmtools.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/rpmtools.pm b/rpmtools.pm index 9e15baa..aa706c4 100644 --- a/rpmtools.pm +++ b/rpmtools.pm @@ -92,12 +92,13 @@ sub new { #- read one or more hdlist files, use packdrake for decompression. sub read_hdlists { my ($params, @hdlists) = @_; + my @names; local (*I, *O); pipe I, O; if (my $pid = fork()) { close O; - rpmtools::_parse_(fileno *I, $params->{flags}, $params->{info}, $params->{provides}); + push @names, rpmtools::_parse_(fileno *I, $params->{flags}, $params->{info}, $params->{provides}); close I; waitpid $pid, 0; @@ -111,7 +112,7 @@ sub read_hdlists { close O; exit 0; } - 1; + @names; } #- build an hdlist from a list of files. |