From b48f228228b48c7b5f35cfd97a7efe7c7c75b91c Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 8 Nov 2000 10:22:05 +0000 Subject: make sure class discarding do not destroy result --- perl-install/Xconfigurator.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perl-install/Xconfigurator.pm') diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index 6469c3369..98ab284ea 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -263,6 +263,8 @@ NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.", $xf3_ver)) . " #- examine choice of user, beware the list MUST NOT BE REORDERED AS the first item should be the #- proposed one by DrakX. my $tc = $in->ask_from_listf(_("XFree configuration"), formatAlaTeX($msg), sub { translate($_[0]{text}) }, \@choices); + #- in case of class discarding, this can help ... + $tc or $tc = $choices[0]; $tc->{code} and $tc->{code}(); $card->{prog} = "/usr/X11R6/bin/" . ($card->{use_xf4} ? 'XFree86' : $card->{server} =~ /Sun (.*)/x ? -- cgit v1.2.1