From b5ad96507fde84761d28df2930b1117a4e5f44f2 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 5 Feb 2003 13:00:09 +0000
Subject: fixed again.

---
 perl-install/install_steps_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index df1e21843..7210c14a7 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -372,7 +372,7 @@ sub choosePackagesTree {
 				}
 			    },
 			    grep_allowed_to_toggle => sub {
-				grep { my $p = pkgs::packageByName($packages, $_); $p && !$->flag_base } @_;
+				grep { my $p = pkgs::packageByName($packages, $_); $p && !$p->flag_base } @_;
 			    },
 			    grep_unselected => sub {
 				grep { !pkgs::packageByName($packages, $_)->flag_selected } @_;
-- 
cgit v1.2.1