From 4ac802ad9ae7e24d1e32f1c5b55f5bbb66edbc8c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 9 Sep 2013 12:46:46 +0200 Subject: do not show popup in testing mode --- perl-install/diskdrake/hd_gtk.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index 53c3260f3..de8b1d752 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -113,9 +113,11 @@ sub main { $notebook_widget->signal_connect(realize => $update_all); $w->sync; $done_button->grab_focus; - $in->ask_from_list_(N("Read carefully"), N("Please make a backup of your data first"), - [ N_("Exit"), N_("Continue") ], N_("Continue")) eq N_("Continue") or return - if $::isStandalone; + if (!$::testing) { + $in->ask_from_list_(N("Read carefully"), N("Please make a backup of your data first"), + [ N_("Exit"), N_("Continue") ], N_("Continue")) eq N_("Continue") or return + if $::isStandalone; + } undef $initializing; $w->main; -- cgit v1.2.1