diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-29 20:15:36 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-29 20:15:36 +0000 |
| commit | d5e061896a35a49a50124949c2882ac9cbe94589 (patch) | |
| tree | 920e7af830e2aa3a766dba5b7aacdca4a6b50a44 /perl-install/pkgs.pm | |
| parent | c05cafad9c601272884cf75ee4e056bfbf4b2917 (diff) | |
| download | drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.tar drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.tar.gz drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.tar.bz2 drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.tar.xz drakx-backup-do-not-use-d5e061896a35a49a50124949c2882ac9cbe94589.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 2a9947e60..3813cfcbc 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -248,7 +248,10 @@ sub install { log::ld("starting installation: ", $nb, " packages, ", $total, " bytes"); # !! do not translate these messages, they are used when catched (cf install_steps_graphical) - my $callbackOpen = sub { fileno install_any::getFile($_[0]) || log::l("bad file $_[0]") }; + my $callbackOpen = sub { + my $fd = install_any::getFile($_[0]) or log::l("bad file $_[0]"); + $fd ? fileno $fd : -1; + }; my $callbackClose = sub { }; my $callbackStart = sub { log::ld("starting installing package ", $_[0]) }; my $callbackProgress = sub { log::ld("progressing installation ", $_[0], "/", $_[1]) }; |