diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-03-01 18:03:04 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-03-01 18:03:04 +0000 |
| commit | ea410c38e49f1d8bc61cf55fbb3a462af2fdddb4 (patch) | |
| tree | 27e5477e4cf9059df2579decc5a181e2274b5ac4 /perl-install/interactive.pm | |
| parent | cd155bf4db0d500dc5de75630d9e46aaa9cc2bb7 (diff) | |
| download | drakx-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
Diffstat (limited to 'perl-install/interactive.pm')
| -rw-r--r-- | perl-install/interactive.pm | 2 |
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; } } |