diff options
author | damien <damien@mandriva.com> | 2001-10-30 20:11:31 +0000 |
---|---|---|
committer | damien <damien@mandriva.com> | 2001-10-30 20:11:31 +0000 |
commit | 22d58ed5438fde649c05c3397e577c98e9b8e0c5 (patch) | |
tree | 36ebf3e101943920fdeb1541c17f99b818893630 /perl-install/standalone/tinyfirewall | |
parent | 72cdfb169816a60385535eceb9f40292e7e383e7 (diff) | |
download | drakx-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-x | perl-install/standalone/tinyfirewall | 2 |
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; |