summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-22 12:19:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-22 12:19:45 +0000
commit53b5abee1210a87a0004573a9dd7d7e3dfbe05ea (patch)
tree6ceda3e349011de93250708f96bd3df7b7527242 /perl-install/my_gtk.pm
parent88d070945ccf746f7df37369a0a5f4167ca95c8b (diff)
downloaddrakx-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.tar
drakx-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.tar.gz
drakx-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.tar.bz2
drakx-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.tar.xz
drakx-53b5abee1210a87a0004573a9dd7d7e3dfbe05ea.zip
$::beginner is deprecated, replaced by !$::expert
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index a8cd90bff..60a96b56e 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -382,9 +382,8 @@ sub _create_window($$) {
require install_gtk;
install_gtk::create_big_help($::o);
} elsif (chr($_[1]{keyval}) eq 'e' && $_[1]{state} & 8) {
- log::l("Switching to " . ($::beginner ? "expert" : "beginner"));
- $::expert = $::beginner;
- $::beginner = !$::expert;
+ log::l("Switching to " . ($::expert ? "beginner" : "expert"));
+ $::expert = !$::expert;
} elsif ($d) {
#- previous field is created here :(
my $s; foreach (reverse @{$::o->{orderedSteps}}) {