diff --git a/useradmin/user-lib.pl b/useradmin/user-lib.pl
index 75291c299..3ebb2c16d 100755
--- a/useradmin/user-lib.pl
+++ b/useradmin/user-lib.pl
@@ -2465,8 +2465,8 @@ Returns HTML for selecting a date
 =cut
 sub date_input
 {
-local ($d, $m, $y, $prefix) = @_;
-local $rv;
+my ($d, $m, $y, $prefix) = @_;
+my $rv;
 $rv .= &ui_textbox($prefix."d", $d, 3)."/";
 $rv .= &ui_select($prefix."m", $m,
 		[ map { [ $_, $text{"smonth_".$_} ] } (1..12) ])."/";