パーミッション　を確かめたところ　0000だけ　666じゃなかったです。。(修正しました)

スクリプトは
sub get_user {
return if $getuserflag;
open(IN,"$usrdir$_[0]\.dat") || &error("ID $_[0]は存在しません $usrdir$_[0]\.dat");
　　　　@_ = <IN>;
　　　　close(IN);
if (!@_) { &error("ID $_[0] 読みこみエラー") }
　　　　&get_userflag($_[0],'u');

$userline = shift(@_);
$getuserflag = 1;
　　　　return @_;

}
にしてみました。
(アクセス確認のため)

これで、ログインしようとしても
ID 0000は存在しません
と出ます。

あと　違うＩＤの人がログインしたら
必ず0000ではなく、その人の、「ID【ID】は存在しません」
と表示されたそうです。

なぜか、エラー
open(IN,"$usrdir$_[0]\.dat") || &error("ID $_[0]は存在しません $usrdir$_[0]\.dat");
の
error("ID $_[0]は存在しません $usrdir$_[0]\.dat");
が、実行されてないような気がします。
どうでしょうか・・・・？
お願いします。

▼関連発言
│
└◆1747:バグ？ [パパート] 08/26 19:42
　└◆1748:Re:バグ？ [moon] 08/26 21:31
　　└◆1749:Re[2]:バグ？ [パパート] 08/26 21:42
　　　└◆1750:Re[3]:バグ？ [moon] 08/26 22:01
　　　　└◆1751:Re[4]:バグ？ [パパート] 08/26 22:19
　　　　　└◆1752:Re[5]:バグ？ [moon] 08/26 22:43
　　　　　　└◆1753:Re[6]:バグ？ [パパート] 08/27 12:49
　　　　　　　└◆1754:Re[7]:バグ？ [moon] 08/27 22:26
　　　　　　　　└◆1755:Re[8]:バグ？ [パパート] 08/27 23:27<-last