summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-07 14:49:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-07 14:49:21 +0000
commit3fe04f038cbadfb74bd41809c1cb7e67af6c2f03 (patch)
tree537d49047b89cf08c749a1cf0100e7306cf9dde3 /perl-install/install_steps_gtk.pm
parent057cd219ea373e1766e1e40550ad52be28ad20c0 (diff)
downloaddrakx-3fe04f038cbadfb74bd41809c1cb7e67af6c2f03.tar
drakx-3fe04f038cbadfb74bd41809c1cb7e67af6c2f03.tar.gz
drakx-3fe04f038cbadfb74bd41809c1cb7e67af6c2f03.tar.bz2
drakx-3fe04f038cbadfb74bd41809c1cb7e67af6c2f03.tar.xz
drakx-3fe04f038cbadfb74bd41809c1cb7e67af6c2f03.zip
(installPackages): autoflush stdout before beeping
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index c76d93489..332ec88ea 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -531,7 +531,7 @@ sub installPackages {
$method eq 'cdrom' and do {
local $my_gtk::grab = 1;
my $name = pkgs::mediumDescr($o->{packages}, $medium);
- print "\a";
+ local $| = 1; print "\a";
my $time = time();
my $r = $name !~ /Application/ || ($o->{useless_thing_accepted2} ||= $o->ask_from_list_('', formatAlaTeX(_("
Warning