summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-06 20:12:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-06 20:12:21 +0000
commite254e4769d84e9d8e512eb225d079ca87800b5ef (patch)
treeac3ea3dd110b579118eb5f92e8c3177db7c92871 /perl-install/install_steps_gtk.pm
parent967c918d9eaf22eceee3c3b3ed448d141e38fd00 (diff)
downloaddrakx-e254e4769d84e9d8e512eb225d079ca87800b5ef.tar
drakx-e254e4769d84e9d8e512eb225d079ca87800b5ef.tar.gz
drakx-e254e4769d84e9d8e512eb225d079ca87800b5ef.tar.bz2
drakx-e254e4769d84e9d8e512eb225d079ca87800b5ef.tar.xz
drakx-e254e4769d84e9d8e512eb225d079ca87800b5ef.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index d5727f273..bf3c76fc7 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -60,6 +60,10 @@ sub new($$) {
devices::make("/dev/kbd");
if ($ENV{DISPLAY} eq ":0") {
+ local (*T1, *T2);
+ open T1, ">/dev/tty5";
+ open T2, ">/dev/tty6";
+
my $launchX = sub {
my $ok = 1;
local $SIG{CHLD} = sub { $ok = 0 if waitpid(-1, c::WNOHANG()) > 0 };
@@ -512,7 +516,7 @@ sub installPackages {
my $total_time = $ratio ? $dtime / $ratio : time();
$progress_total->update($ratio);
- if ($dtime != $last_dtime && $current_total_size > 2 * 1024 * 1024) {
+ if ($dtime != $last_dtime && $current_total_size > 10 * 1024 * 1024) {
$msg_time_total->set(formatTime(10 * round($total_time / 10)));
$msg_time_remaining->set(formatTime(10 * round(max($total_time - $dtime, 0) / 10)));
$last_dtime = $dtime;