From fdb86f8297c6733ef463d9d1c3d987cd23e734e7 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Sat, 3 Jan 2015 15:33:09 +0100
Subject: removed deprecated  POSIX isdigit

---
 Changes                           | 1 +
 lib/AdminPanel/Rpmdragora/icon.pm | 9 ++-------
 2 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/Changes b/Changes
index 156c6fb1..445bbc6d 100644
--- a/Changes
+++ b/Changes
@@ -1,4 +1,5 @@
 1.0.0-7 
+	- rpmdragora: removed deprecated POSIX::isdigit()
 	- rpmdragora: fixed button icons search and clear
 	- rpmdragora: config file saved keys are sorted first
 	- rpmdragora: search button as default
diff --git a/lib/AdminPanel/Rpmdragora/icon.pm b/lib/AdminPanel/Rpmdragora/icon.pm
index b4a97c09..c7def86e 100644
--- a/lib/AdminPanel/Rpmdragora/icon.pm
+++ b/lib/AdminPanel/Rpmdragora/icon.pm
@@ -25,7 +25,6 @@ package AdminPanel::Rpmdragora::icon;
 # $Id: icon.pm 237459 2008-02-26 14:20:47Z tv $
 
 use strict;
-use POSIX qw (isdigit);
 
 use AdminPanel::rpmdragora;
 use AdminPanel::Shared::Locales;
@@ -214,12 +213,8 @@ my %group_icons = (
 
 sub get_icon_path {
     my ($group, $parent) = @_;
-    my $path;
-    if(isdigit($parent) && $parent == 0){
-        $path = '/usr/share/icons/';
-    }else{
-        $path = '/usr/share/icons/mini/';
-    }
+
+    my $path = $parent ? '/usr/share/icons/mini/' : '/usr/share/icons/';
     my $icon_path = "";
     if(defined($group_icons{$group})){
         $icon_path = join('', $path, $group_icons{$group}, '.png');
-- 
cgit v1.2.1