summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/tinyfirewall
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-10-30 20:11:31 +0000
committerdamien <damien@mandriva.com>2001-10-30 20:11:31 +0000
commit22d58ed5438fde649c05c3397e577c98e9b8e0c5 (patch)
tree36ebf3e101943920fdeb1541c17f99b818893630 /perl-install/standalone/tinyfirewall
parent72cdfb169816a60385535eceb9f40292e7e383e7 (diff)
downloaddrakx-backup-do-not-use-22d58ed5438fde649c05c3397e577c98e9b8e0c5.tar
drakx-backup-do-not-use-22d58ed5438fde649c05c3397e577c98e9b8e0c5.tar.gz
drakx-backup-do-not-use-22d58ed5438fde649c05c3397e577c98e9b8e0c5.tar.bz2
drakx-backup-do-not-use-22d58ed5438fde649c05c3397e577c98e9b8e0c5.tar.xz
drakx-backup-do-not-use-22d58ed5438fde649c05c3397e577c98e9b8e0c5.zip
corrected ref($in) =~ /gtk/
Diffstat (limited to 'perl-install/standalone/tinyfirewall')
-rwxr-xr-xperl-install/standalone/tinyfirewall2
1 files changed, 1 insertions, 1 deletions
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;