From 4439749126a53f40baab173696e9479597eb0328 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 8 Sep 2011 10:37:20 +0000
Subject: (installPackages) only retrieve release notes once during
 installation

(also reduces install log size)
---
 perl-install/install/NEWS         | 3 +++
 perl-install/install/steps_gtk.pm | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 2e18167e2..df758951e 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,6 +1,9 @@
 - install more packages earlier (acpi{,d}, dhcp client, firewall & bootloader
   stuff), preventing useless installing steps later at summary stage & also
   fixing "program not found: grub-gfxmenu" error message while installing
+- only retrieve release notes once during installation
+
+(also reduces install log size)
 
 Version 13.63 - 07 September 2011
 
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 75f76421f..b8343d22c 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -568,7 +568,7 @@ sub installPackages {
 			     $pkg_log_widget->{to_bottom}->('force');
 			 });
 
-    my $release_notes = any::get_release_notes($o);
+    state $release_notes ||= any::get_release_notes($o);
     my $rel_notes = gtknew('Button', text => N("Release Notes"), 
                            clicked => sub { $show_release_notes = 1 });
 
-- 
cgit v1.2.1