summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-09-09 12:46:46 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 21:28:37 +0100
commit4ac802ad9ae7e24d1e32f1c5b55f5bbb66edbc8c (patch)
treef02b8e74f9cda7556c84bb9686e32cc2a672f390 /perl-install/diskdrake
parentc6b68a4baeb51c14d5f6825e396b1ede42c941ae (diff)
downloaddrakx-4ac802ad9ae7e24d1e32f1c5b55f5bbb66edbc8c.tar
drakx-4ac802ad9ae7e24d1e32f1c5b55f5bbb66edbc8c.tar.gz
drakx-4ac802ad9ae7e24d1e32f1c5b55f5bbb66edbc8c.tar.bz2
drakx-4ac802ad9ae7e24d1e32f1c5b55f5bbb66edbc8c.tar.xz
drakx-4ac802ad9ae7e24d1e32f1c5b55f5bbb66edbc8c.zip
do not show popup in testing mode
Diffstat (limited to 'perl-install/diskdrake')
-rw-r--r--perl-install/diskdrake/hd_gtk.pm8
1 files 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;