From 3fe04f038cbadfb74bd41809c1cb7e67af6c2f03 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 7 Jan 2001 14:49:21 +0000
Subject: (installPackages): autoflush stdout before beeping

---
 perl-install/install_steps_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

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
-- 
cgit v1.2.1