Mercurial > pkg
diff src/pkg-examine.pl @ 29:819e950ac8cc
minor changes.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Thu, 10 Jan 2013 16:59:50 +0000 |
parents | dd480255bd82 |
children |
line wrap: on
line diff
1.1 --- a/src/pkg-examine.pl Thu Jan 10 16:28:18 2013 +0000 1.2 +++ b/src/pkg-examine.pl Thu Jan 10 16:59:50 2013 +0000 1.3 @@ -17,9 +17,10 @@ 1.4 $pkg_name = $ARGV[0]; 1.5 1.6 `id -g $pkg_name 2>/dev/null`; 1.7 -if ($?){ 1.8 - print "No group named $pkg_name."; 1.9 - exit 0;} 1.10 +if (($pkg_name eq "") || $?){ 1.11 + print "No group named $pkg_name.\n"; 1.12 + exit 0; 1.13 +} 1.14 1.15 @files = split(/\0/, `find /usr /opt /etc -group $pkg_name -print0`); 1.16