Mercurial > pkg
changeset 29:819e950ac8cc
minor changes.
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Thu, 10 Jan 2013 16:59:50 +0000 |
| parents | dd480255bd82 |
| children | f1d0574937b5 |
| files | src/pkg-examine.pl src/system-init.pl |
| diffstat | 2 files changed, 7 insertions(+), 6 deletions(-) [+] |
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
2.1 --- a/src/system-init.pl Thu Jan 10 16:28:18 2013 +0000 2.2 +++ b/src/system-init.pl Thu Jan 10 16:59:50 2013 +0000 2.3 @@ -1,6 +1,6 @@ 2.4 -#!/usr/bin/env perl 2.5 +#!/usr/bin/perl 2.6 +use Cwd; 2.7 2.8 -use Cwd; 2.9 2.10 sub create_install_dir{ 2.11 @install_cmd = 2.12 @@ -118,7 +118,7 @@ 2.13 2.14 execute("chown -Rv root:root /.hg"); 2.15 2.16 -$pwd = getcwd; 2.17 +$pwd = cwd(); 2.18 execute("ln -sf $pwd/profile /pkg/skel/.profile"); 2.19 execute("ln -sf $pwd/hg-wrapper /pkg/skel/"); 2.20 execute("ln -sf $pwd/save-acls /pkg/skel/");