From 22d58ed5438fde649c05c3397e577c98e9b8e0c5 Mon Sep 17 00:00:00 2001 From: damien Date: Tue, 30 Oct 2001 20:11:31 +0000 Subject: corrected ref($in) =~ /gtk/ --- perl-install/standalone/tinyfirewall | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone/tinyfirewall') diff --git a/perl-install/standalone/tinyfirewall b/perl-install/standalone/tinyfirewall index 86f59e5cb..df01e76e9 100755 --- a/perl-install/standalone/tinyfirewall +++ b/perl-install/standalone/tinyfirewall @@ -32,7 +32,7 @@ local $_ = join '', @ARGV; my $in = 'interactive'->vnew('su', 'default'); -$::isEmbedded && ref($in) =~ /gtk/ or goto dd; +$::isEmbedded && $in->isa('interactive_gtk') or goto dd; require Gtk; init Gtk; -- cgit v1.2.1