summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-04-20 16:24:17 +0000
committerFrancois Pons <fpons@mandriva.com>2000-04-20 16:24:17 +0000
commit96203f5a2f5ff5fd67b8ef7c13c0b0f6669c5f35 (patch)
treed1acfcc4ea4cbe47159e19a98a4a6a04c7608d27 /perl-install
parent03021569d9c56fb99dda63b6d76bd57b0acf741f (diff)
downloaddrakx-96203f5a2f5ff5fd67b8ef7c13c0b0f6669c5f35.tar
drakx-96203f5a2f5ff5fd67b8ef7c13c0b0f6669c5f35.tar.gz
drakx-96203f5a2f5ff5fd67b8ef7c13c0b0f6669c5f35.tar.bz2
drakx-96203f5a2f5ff5fd67b8ef7c13c0b0f6669c5f35.tar.xz
drakx-96203f5a2f5ff5fd67b8ef7c13c0b0f6669c5f35.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm13
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;