From 5116d0330c6a1bf0546fecd468ff13029f78aaf5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 20 Apr 2012 18:22:16 +0000
Subject: (create_display_box) fix crashing on calling a method on a non
 blessed reference

---
 perl-install/fs/partitioning_wizard.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index ee7253c65..7712301c3 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -287,7 +287,8 @@ sub warn_reboot_needed {
 
 sub create_display_box {
     my ($kind, $resize, $fill_empty, $button) = @_;
-    my @parts = fs::get::hds_fstab_and_holes($kind->{val});
+    # perl_checker: require UNIVERSAL
+    my @parts = fs::get::hds_fstab_and_holes($kind->{val}) if UNIVERSAL::can($kind->{val}, 'first_usable_sector,');
 
     my $totalsectors = $kind->{val}{totalsectors};
 
-- 
cgit v1.2.1