From 96203f5a2f5ff5fd67b8ef7c13c0b0f6669c5f35 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 20 Apr 2000 16:24:17 +0000 Subject: *** empty log message *** --- perl-install/pkgs.pm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 9a3d6478b..35213e279 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -916,15 +916,20 @@ sub install($$$;$$) { } while (scalar(@transToInstall) == 0); #- avoid null transaction, it a nop that cost a bit. } - #- reset file descriptor open too. + #- extract headers for parent as they are used by callback. + extractHeaders($prefix, \@transToInstall, $media->{$medium}); + + #- reset file descriptor open for main process but + #- make sure error trying to change from hdlist are + #- trown from main process too. + install_any::getFile(packageFile($transToInstall[0])); + #- and make sure there are no staling open file descriptor too! install_any::getFile('XXX'); + #- reset ftp handlers before forking, otherwise well ;-( require ftp; ftp::rewindGetFile(); - #- extract headers for parent as they are used by callback. - extractHeaders($prefix, \@transToInstall, $media->{$medium}); - local (*INPUT, *OUTPUT); pipe INPUT, OUTPUT; if (my $pid = fork()) { close OUTPUT; -- cgit v1.2.1