From 57d585118e37698c537e0ddcbe70cea51167a088 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 4 Mar 2013 19:10:07 +0000
Subject: perl_checker cleanup

---
 perl-install/any.pm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 990813f74..fb7bcf2a9 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -414,7 +414,6 @@ sub setupBootloader__general {
 	foreach (bootloader::allowed_boot_parts($b, $all_hds)) {
 	    my $dev = "/dev/$_->{device}";
 	    push @boot_devices, $dev;
-	    my $desc = formatXiB($_->{size}*512);
 	    my $name = $_->{mntpoint} || $_->{info} || $_->{device_LABEL};
 	    unless ($name) {
 		$name = formatXiB($_->{size}*512) . " " if $_->{size};
-- 
cgit v1.2.1