diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-28 18:42:18 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-28 18:42:18 +0000 |
commit | faf46301c00d7d9acbe06bac5ee9d6b439f8d277 (patch) | |
tree | 8f7d79a9293686fdb785a19f4defc774abc972de | |
parent | 31d8bbdc3d44ec41a8ad359d62ebfb2d0f35662d (diff) | |
download | rpmdrake-faf46301c00d7d9acbe06bac5ee9d6b439f8d277.tar rpmdrake-faf46301c00d7d9acbe06bac5ee9d6b439f8d277.tar.gz rpmdrake-faf46301c00d7d9acbe06bac5ee9d6b439f8d277.tar.bz2 rpmdrake-faf46301c00d7d9acbe06bac5ee9d6b439f8d277.tar.xz rpmdrake-faf46301c00d7d9acbe06bac5ee9d6b439f8d277.zip |
(get_icon) 'parent' parameter is not mandatory
(helps perl_checker)
-rw-r--r-- | Rpmdrake/icon.pm | 4 |
1 files 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'); } |