summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-05 23:13:43 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-05 23:13:43 +0000
commitacbcf359e5e63583f01c06ecbc4346664c443aa0 (patch)
treec572b519c806b4dbd69e22f2d3133f24f06dfec0 /perl-install/pkgs.pm
parent6e75349144478ac58cb29697e31d2339d2d0a971 (diff)
downloaddrakx-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.pm12
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