From db2545e316e7d1293241a5cd94668234aa1afd51 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 3 Apr 2001 12:50:27 +0000 Subject: *** empty log message *** --- rpmtools.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'rpmtools.pm') 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. -- cgit v1.2.1