- progress bar wait_message: ensure it doesn't go crazy when asked to update

  with the same fraction (eg #30090)
- also do hide the progress bar (maybe we should not hide it?)

1 files changed, 9 insertions, 5 deletions

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 335bdda41..59b0fb288 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -862,12 +862,16 @@ sub wait_message_with_progress_bar {
 
 	if ($total) {
 	    $progress or internal_error('You must first give some text to display');
-	    $progress->set_fraction($current / $total);
-	    $progress->show;
-	    $displayed = 0;
-	    mygtk2::flush() while !$displayed;
+	    my $fraction = min(1, $current / $total);
+	    if ($fraction != $progress->get_fraction) {
+		$progress->set_fraction($fraction);
+		$progress->show;
+		$displayed = 0;
+		mygtk2::flush() while !$displayed;
+	    }
 	} else {
-	    $progress->hide if !$total;
+	    $progress->hide;
+	    mygtk2::flush();
 	}
     };
 }