From e93139ee787b9894e247bf4626591b3d4ebbb258 Mon Sep 17 00:00:00 2001
From: Matteo Pasotti <matteo@mageia.org>
Date: Mon, 14 Jan 2013 17:43:58 +0000
Subject: fixed warning on comparison between string and integer

---
 AdminPanel/Rpmdragora/icon.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/AdminPanel/Rpmdragora/icon.pm b/AdminPanel/Rpmdragora/icon.pm
index 11e51ef..38ed61c 100644
--- a/AdminPanel/Rpmdragora/icon.pm
+++ b/AdminPanel/Rpmdragora/icon.pm
@@ -28,6 +28,7 @@ use strict;
 our @ISA = qw(Exporter);
 use lib qw(/usr/lib/libDrakX);
 use common;
+use POSIX;
 
 # TO WORKAROUND LOCALIZATION ISSUE
 use AdminPanel::Rpmdragora::localization;
@@ -224,7 +225,7 @@ my %group_icons = (
 sub get_icon {
     my ($group, $parent) = @_;
     my $path;
-    if($parent == 0){
+    if(isdigit($parent) && $parent == 0){
         $path = '/usr/share/icons/';
     }else{
         $path = '/usr/share/icons/mini/';
-- 
cgit v1.2.1