better error reporting

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index c127d41..9ac973a 100644 (file)
--- a/lib/CloudStore/API.pm
+++ b/lib/CloudStore/API.pm
@@ -11,9 +11,10 @@ use File::Find;
 use Data::Dump qw(dump);
 
 sub new {
-       my ($class,$group) = @_;
+       my ($class,$slice) = @_;
 
-       my ( undef, $dir, $port, undef ) = getgrnam($group) || die "can't find group $group: $!";
+       my ( undef, $dir, $port, undef ) = getgrnam($slice);
+       die "can't find group $slice: $!" unless $dir && $port;
        my $self = {
                passwd => '/var/lib/extrausers/passwd',
                PORT => $port,