From facea35333b3865396e10a03ce332fc5afa1b792 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 8 Nov 2016 18:36:49 +0100
Subject: (GetFaceIcon) make obvious parameter is optional

one less perl_checker warning
---
 userdrake | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/userdrake b/userdrake
index e6ca26b..5994012 100755
--- a/userdrake
+++ b/userdrake
@@ -361,11 +361,11 @@ sub Refresh {
 }
 
 sub GetFaceIcon {
-    my ($user) = @_;
+    my ($o_user) = @_;
     my @icons = any::facesnames();
     my $i;
     my $current_icon;
-    my $user_icon = "$::prefix/usr/share/faces/$user.png";
+    my $user_icon = "$::prefix/usr/share/faces/$o_user.png";
     gtkpack_(my $hb = Gtk3::HBox->new(0, 2),
 	     0, Gtk3::Label->new(N("Click on the icon to change it") . '    '),
 	     0, my $bt = Gtk3::Button->new
-- 
cgit v1.2.1