diff options
author | Francois Pons <fpons@mandriva.com> | 2000-04-20 16:24:17 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2000-04-20 16:24:17 +0000 |
commit | 96203f5a2f5ff5fd67b8ef7c13c0b0f6669c5f35 (patch) | |
tree | d1acfcc4ea4cbe47159e19a98a4a6a04c7608d27 /perl-install | |
parent | 03021569d9c56fb99dda63b6d76bd57b0acf741f (diff) | |
download | drakx-backup-do-not-use-96203f5a2f5ff5fd67b8ef7c13c0b0f6669c5f35.tar drakx-backup-do-not-use-96203f5a2f5ff5fd67b8ef7c13c0b0f6669c5f35.tar.gz drakx-backup-do-not-use-96203f5a2f5ff5fd67b8ef7c13c0b0f6669c5f35.tar.bz2 drakx-backup-do-not-use-96203f5a2f5ff5fd67b8ef7c13c0b0f6669c5f35.tar.xz drakx-backup-do-not-use-96203f5a2f5ff5fd67b8ef7c13c0b0f6669c5f35.zip |
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/pkgs.pm | 13 |
1 files changed, 9 insertions, 4 deletions
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; |