From d5f7e65abeed1a2dab636d91dc3c8c0d35d1f552 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 12 Dec 2011 20:49:41 +0100
Subject: [PATCH] better error reporting

---
 lib/CloudStore/API.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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,
-- 
2.20.1