die on invalid user_info

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index 5816da2..21432a8 100644 (file)
--- a/lib/CloudStore/API.pm
+++ b/lib/CloudStore/API.pm
@@ -40,6 +40,7 @@ sub user_info {
 
        my @n = qw/ login passwd uid gid quota comment gecos dir shell expire /;
        my @p = $login =~ m/^\d+$/ ? getpwuid $login : getpwnam $login;
+       die "user_info $login: $@" if $@;
        my $user;
        $user->{$_} = shift @p foreach @n;
        return $user;
@@ -109,7 +110,7 @@ sub user_dir {
                warn "# user_dir created $path\n";
        }
 
-       warn "## user_dir $path";
+       #warn "### user_dir $path";
        return $path;
 }