perl_checker cleanups

1 files changed, 5 insertions, 5 deletions

diff --git a/userdrake b/userdrake
index ab800d2..01f9586 100755
--- a/userdrake
+++ b/userdrake
@@ -614,7 +614,7 @@ sub CreateTree {
     $tree->get_selection->signal_connect(
         'changed' => sub {
             foreach ($tbedit, $tbdel, $buttorcheck{edit}, $buttorcheck{delete}) {
-                $_->set_sensitive(1) 
+                $_->set_sensitive(1);
             }
         });
     my $menu_treeview = Gtk2::Menu->new;
@@ -651,9 +651,9 @@ sub CreateTree {
 }
 
 sub GtkEntryHidePass {
-    my ($text) = @_;
+    my ($o_text) = @_;
     my $e = gtknew('WeaknessCheckEntry');
-    $text and $e->set_text($text);
+    $o_text and $e->set_text($o_text);
     $e->set_visibility(0);
     $e;
 }
@@ -666,7 +666,7 @@ sub GtkEntrySized {
 }
 
 sub BuildUui {
-    my ($extra_widget) = @_;
+    my ($o_extra_widget) = @_;
     gtkpack_(my $vbox = Gtk2::VBox->new(0, 2),
 	     1, create_packtable({ homogeneous => 1, col_spacings => 5, row_spacings => 5 },
 				 [ gtknew('Label_Left', text => N("Full Name:")), $us->{o}{fullname} = Gtk2::Entry->new ],
@@ -674,7 +674,7 @@ sub BuildUui {
 				 [ gtknew('Label_Left', text => N("Password:")), $us->{o}{passwd} = GtkEntryHidePass() ],
 				 [ gtknew('Label_Left', text => N("Confirm Password:")), $us->{o}{confpasswd} = GtkEntryHidePass() ],
 				 [ gtknew('Label_Left', text => N("Login Shell:")), $us->{o}{shells} = Gtk2::Combo->new ],
-				 $extra_widget,
+				 $o_extra_widget,
 				)
 	    );
     $us->{o}{shells}->set_popdown_strings(@{$ctx->GetUserShells});