From 42fae59e6e482907ec6e12acdb7d9b9430d67991 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 5 Feb 2003 13:57:34 +0000
Subject: warn the user when leaving the summary with X non configured

---
 perl-install/install_steps_interactive.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index d60db34d2..3d076c5a2 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -854,6 +854,7 @@ sub summary {
 	    }
 	};
 
+  summary:
     $o->ask_from_({
 		   messages => N("Summary"),
 		   cancel   => '',
@@ -886,6 +887,12 @@ sub summary {
         }
     } grep { $_->{driver} =~ /(bttv|saa7134)/ } detect_devices::probeall()),
 ]);
+
+    if (!$o->{raw_X} && pkgs::packageByName($o->{packages}, 'XFree86')->flag_installed) {
+	$o->ask_yesorno('', _("You have not configured X. Are you sure you really want this?"))
+	  or goto summary;
+    }
+
     install_steps::configureTimezone($o);  #- do not forget it.
 }
 
-- 
cgit v1.2.1