From 3eafbbfdba2fe54c82e8a5a163b3f348af2f3573 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 6 Sep 2005 13:12:16 +0000
Subject: do summaryBefore() only once (this will reduce damage caused in
 bugzilla #18277)

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

(limited to 'perl-install')

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index ff8f00724..1725c799e 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -247,7 +247,7 @@ sub miscellaneous {
 #------------------------------------------------------------------------------
 sub summary {
     my ($auto) = @_;
-    installStepsCall($o, $auto, 'summaryBefore');
+    installStepsCall($o, $auto, 'summaryBefore') if $o->{steps}{summary}{entered} == 1;
     installStepsCall($o, $auto, 'summary');
     installStepsCall($o, $auto, 'summaryAfter');
 }
-- 
cgit v1.2.1