X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fimport_users.pl;h=d4cecbfded37907c933edae41524c301869dee8f;hb=6aca4e461103870de99b0ce452f21cf7fedeb54b;hp=3111e064d8cd221b513d35ef599cf02cf3aa8791;hpb=1728c7c7a64eaf2852c490629f022c7e70bc46e2;p=spider.git

diff --git a/perl/import_users.pl b/perl/import_users.pl
index 3111e064..d4cecbfd 100755
--- a/perl/import_users.pl
+++ b/perl/import_users.pl
@@ -23,9 +23,8 @@ use DXUser;
 use Carp;
 
 $userfn = $ARGV[0] if @ARGV;
-unless ($userfn) {
-	croak "need a filename";
-}
+croak "need a filename" unless $userfn;
+croak "$userfn.asc doesn't exist" unless -e "$userfn.asc";
 
 DXUser->init($userfn, 1);