From faf46301c00d7d9acbe06bac5ee9d6b439f8d277 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 28 Mar 2012 18:42:18 +0000
Subject: (get_icon) 'parent' parameter is not mandatory

(helps perl_checker)
---
 Rpmdrake/icon.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Rpmdrake/icon.pm b/Rpmdrake/icon.pm
index a2bcedf7..97de56a4 100644
--- a/Rpmdrake/icon.pm
+++ b/Rpmdrake/icon.pm
@@ -185,12 +185,12 @@ my %group_icons = (
     );
 
 sub get_icon {
-    my ($group, $parent) = @_;
+    my ($group, $o_parent) = @_;
     my $pixbuf;
     my $path = $group =~ /\|/ ? '/usr/share/icons/mini/' : '/usr/share/icons/';
     my $create_pixbuf = sub { eval { gtknew('Pixbuf', file => join('', $path, $_[0], '.png')) } };
     $pixbuf = $create_pixbuf->($group_icons{$group});
-    $pixbuf ||= $create_pixbuf->($group_icons{$parent}) if $parent;
+    $pixbuf ||= $create_pixbuf->($group_icons{$o_parent}) if $o_parent;
     $pixbuf ||= $create_pixbuf->('applications_section');
 }
 
-- 
cgit v1.2.1