From b30ebc7f23166a3463c705ef5f3a63cb2a562652 Mon Sep 17 00:00:00 2001
From: gashapwn <gashapwn@tildezero.lan>
Date: Tue, 29 Dec 2020 04:16:03 +0000
Subject: [PATCH] create_user.pl - fixed filename test

---
 perl-script/create_user.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-script/create_user.pl b/perl-script/create_user.pl
index e0bc7a2..a7f40a3 100644
--- a/perl-script/create_user.pl
+++ b/perl-script/create_user.pl
@@ -90,7 +90,7 @@ sub create($){
 	system($cmd);
 	system("echo '".$pub_key."' > /home/$username/.ssh/authorized_keys");
 	system("chmod 711 /home/$username");
-	system("test -f $fn1 && mv $fn1 $fn1.done");
+	system("test $fn1 && mv $fn1 $fn1.done");
 	system("echo $username >> $ul_path");
     }
     close IN0;