summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/steps_gtk.pm12
2 files changed, 8 insertions, 6 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 002715a2f..f94e0e6f2 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- fix displaying release notes while installing (mga#10087)
+
Version 15.51 - 13 May 2013
- any.pm: dont add arch() to release-notes file name (#10087)
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 77796072f..1e715d0a8 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -632,12 +632,6 @@ sub installPackages {
$w->flush;
} elsif ($type eq 'open') {
$advertize->(1) if $show_advertising && $total_size > 20_000_000 && time() - $change_time > 20;
- } elsif ($type eq 'inst' && $subtype eq 'start') {
- gtkval_modify(\$pkg_progress, 0);
- my $p = $packages->{depslist}[$id];
- mygtk2::gtkadd($pkg_log_widget, text => sprintf("\n%s: %s", $p->name, translate($p->summary)));
- $current_total_size += $last_size;
- $last_size = $p->size;
# display release notes if requested, when not chrooted:
if ($show_release_notes) {
@@ -645,6 +639,12 @@ sub installPackages {
any::run_display_release_notes($release_notes);
$w->flush;
}
+ } elsif ($type eq 'inst' && $subtype eq 'start') {
+ gtkval_modify(\$pkg_progress, 0);
+ my $p = $packages->{depslist}[$id];
+ mygtk2::gtkadd($pkg_log_widget, text => sprintf("\n%s: %s", $p->name, translate($p->summary)));
+ $current_total_size += $last_size;
+ $last_size = $p->size;
$w->flush;
} elsif ($type eq 'inst' && $subtype eq 'progress') {