From ea410c38e49f1d8bc61cf55fbb3a462af2fdddb4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 1 Mar 2005 18:03:04 +0000
Subject: when testing, don't silently default to newt

---
 perl-install/interactive.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/interactive.pm')

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;
 	}
     }
 
-- 
cgit v1.2.1