From 53b5abee1210a87a0004573a9dd7d7e3dfbe05ea Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 22 Jan 2001 12:19:45 +0000
Subject: $::beginner is deprecated, replaced by !$::expert

---
 perl-install/my_gtk.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

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