From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 12 Dec 2011 19:49:41 +0000 (+0100)
Subject: better error reporting
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=d5f7e65abeed1a2dab636d91dc3c8c0d35d1f552;hp=ea35f528787f5efcc0cb9ec12375b79d36e31862;p=cloudstore.git

better error reporting
---

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index c127d41..9ac973a 100644
--- 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,