fixed typo

[oss/stilllife.git] / forum / forum

diff --git a/forum/forum b/forum/forum
index cecacc3bc6b5ef92e7554f0923be4f56d7c61694..3407034639663e447322f90789f5b6d5792a5b3d 100755 (executable)
--- a/forum/forum
+++ b/forum/forum
@@ -463,8 +463,8 @@ sub register {
        }
        my $saltstring = 'ABCDEFGHIJKLMNOPQRSTUVWXUZabcdefghijklmnopqrstuvwxuz0123456789./';
        my $salt = substr($saltstring,int(rand(64)),1).
-                               substr($altstring,int(rand(64)),1);
-       my $password=crypt($cgi->param("pass1",$salt));                 
+                               substr($saltstring,int(rand(64)),1);
+       my $password=crypt($cgi->param("pass1"),$salt);                 
        my $userinfo = {passwd=>$password};
        # Удаляем лишние поля
        $cgi->delete("required");