--- otvori_nove+db	2000/04/18 12:19:24	1.4
+++ otvori_nove+db	2000/05/17 09:57:22	1.6
@@ -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);
@@ -203,7 +203,7 @@
 	$full_name=~s/ +:/:/g;
 	$full_name=~s/ +/ /g;
 	$full_name=nuke_chars($full_name);
-	if ($shell eq "t") {
+	if ($shell) {
 		$shell="/usr/local/bin/bash";
 	} else {
 		$shell="/usr/bin/false";
@@ -247,7 +247,7 @@
 close(NPASSWD);
 close(NALIAS);
 
-undef $sth;
+undef $sth,$sth2;
 $dbh->disconnect;
 
 system "mv /etc/passwd passwd.orig" if (! $debug);