diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-05 23:13:43 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-05 23:13:43 +0000 |
| commit | acbcf359e5e63583f01c06ecbc4346664c443aa0 (patch) | |
| tree | c572b519c806b4dbd69e22f2d3133f24f06dfec0 /perl-install/pkgs.pm | |
| parent | 6e75349144478ac58cb29697e31d2339d2d0a971 (diff) | |
| download | drakx-backup-do-not-use-acbcf359e5e63583f01c06ecbc4346664c443aa0.tar drakx-backup-do-not-use-acbcf359e5e63583f01c06ecbc4346664c443aa0.tar.gz drakx-backup-do-not-use-acbcf359e5e63583f01c06ecbc4346664c443aa0.tar.bz2 drakx-backup-do-not-use-acbcf359e5e63583f01c06ecbc4346664c443aa0.tar.xz drakx-backup-do-not-use-acbcf359e5e63583f01c06ecbc4346664c443aa0.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 01d744038..020ccf7c2 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -145,12 +145,12 @@ sub psUsingHdlist() { my $f = install_any::getFile('hdlist') or die "no hdlist found"; my %packages; -# my ($noSeek, $end) = 0; -# $end = sysseek F, 0, 2 or die "seek failed"; -# sysseek F, 0, 0 or die "seek failed"; +#- my ($noSeek, $end) = 0; +#- $end = sysseek F, 0, 2 or die "seek failed"; +#- sysseek F, 0, 0 or die "seek failed"; while (my $header = c::headerRead(fileno $f, 1)) { -# or die "error reading header at offset ", sysseek(F, 0, 1); +#- or die "error reading header at offset ", sysseek(F, 0, 1); my $name = c::headerGetEntry($header, 'name'); $packages{$name} = { @@ -512,8 +512,8 @@ sub install($$) { }; my $callbackClose = sub { $packages{$_[0]}{installed} = 1; }; my $callbackMessage = \&pkgs::installCallback; -# my $callbackStart = sub { log::ld("starting installing package ", $_[0]) }; -# my $callbackProgress = sub { log::ld("progressing installation ", $_[0], "/", $_[1]) }; +#- my $callbackStart = sub { log::ld("starting installing package ", $_[0]) }; +#- my $callbackProgress = sub { log::ld("progressing installation ", $_[0], "/", $_[1]) }; #- do not modify/translate the message used with installCallback since #- these are keys during progressing installation, or change in other |