From d25f08bee430e5418edbdb0405899dce9e3a0590 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 19 Oct 2001 11:39:12 +0000
Subject: OOize can_raw_add

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

diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index 997177cce..7b93bbf09 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -71,7 +71,7 @@ sub partitionWizardSolutions {
 
     # each solution is a [ score, text, function ], where the function retunrs true if succeeded
 
-    my @good_hds = grep { partition_table::can_raw_add($_) } @$hds;
+    my @good_hds = grep { $_->can_raw_add } @$hds;
     if (fsedit::free_space(@good_hds) > $min_linux and !$readonly) {
 	$solutions{free_space} = [ 20, _("Use free space"), sub { fsedit::auto_allocate($all_hds); 1 } ]
     } else { 
-- 
cgit v1.2.1