From 782d5f691b1cb09a8cad84d7d32650fb1455ac81 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/steps_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install/steps_gtk.pm')

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