diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-09-09 12:46:46 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:37 +0100 |
| commit | 4ac802ad9ae7e24d1e32f1c5b55f5bbb66edbc8c (patch) | |
| tree | f02b8e74f9cda7556c84bb9686e32cc2a672f390 /perl-install | |
| parent | c6b68a4baeb51c14d5f6825e396b1ede42c941ae (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/diskdrake/hd_gtk.pm | 8 |
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; |