(GetFaceIcon) make obvious parameter is optional

one less perl_checker warning

1 files 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