summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-03-01 18:03:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-03-01 18:03:04 +0000
commitea410c38e49f1d8bc61cf55fbb3a462af2fdddb4 (patch)
tree27e5477e4cf9059df2579decc5a181e2274b5ac4
parentcd155bf4db0d500dc5de75630d9e46aaa9cc2bb7 (diff)
downloaddrakx-ea410c38e49f1d8bc61cf55fbb3a462af2fdddb4.tar
drakx-ea410c38e49f1d8bc61cf55fbb3a462af2fdddb4.tar.gz
drakx-ea410c38e49f1d8bc61cf55fbb3a462af2fdddb4.tar.bz2
drakx-ea410c38e49f1d8bc61cf55fbb3a462af2fdddb4.tar.xz
drakx-ea410c38e49f1d8bc61cf55fbb3a462af2fdddb4.zip
when testing, don't silently default to newt
-rw-r--r--perl-install/interactive.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index d577ded21..b7130fe5b 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -105,6 +105,8 @@ sub vnew {
my $o = interactive::gtk->new;
if ($o_icon && $o_icon ne 'default' && !$::isWizard) { $o->{icon} = $o_icon } else { undef $o->{icon} }
return $o;
+ } elsif ($::testing) {
+ die;
}
}