cleanup getgrnam error handling

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index 1b4b27a..8a054ba 100644 (file)
--- a/lib/CloudStore/API.pm
+++ b/lib/CloudStore/API.pm
@@ -35,7 +35,8 @@ sub new {
 
 sub slice_dir_port {
        my ($self,$slice) = @_;
-       my ( undef, $dir, $port, undef ) = getgrnam($slice) || die "getgrnam $slice: $!";
+       my ( undef, $dir, $port, undef ) = getgrnam($slice);
+       die "getgrnam $slice: $!" if $!;
        warn "# slice_dir_port $slice = $dir $port\n";
        return ( $dir, $port );
 }