--- otvori_nove+db	2000/04/18 12:19:24	1.4
+++ otvori_nove+db	2000/05/10 09:16:12	1.5
@@ -137,7 +137,7 @@
 	$ime=nuke_chars($ime);
 	$prezime=nuke_chars($prezime);
 
-	my $prezime_za_login,$ime_za_login;
+	my ($prezime_za_login,$ime_za_login);
 
 	if ($prezime =~ /[- ]/) {          # dva prezimena prezime1-prezime2
 		($prezime_za_login,undef) = split(/[- ]/,$prezime,2);
@@ -247,7 +247,7 @@
 close(NPASSWD);
 close(NALIAS);
 
-undef $sth;
+undef $sth,$sth2;
 $dbh->disconnect;
 
 system "mv /etc/passwd passwd.orig" if (! $debug);