# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1357837190 0
# Node ID 819e950ac8cc5955b3aca07ad48d9f4f3bf883b2
# Parent  dd480255bd82b895148435c32b1270117b10081b
minor changes.

diff -r dd480255bd82 -r 819e950ac8cc src/pkg-examine.pl
--- a/src/pkg-examine.pl	Thu Jan 10 16:28:18 2013 +0000
+++ b/src/pkg-examine.pl	Thu Jan 10 16:59:50 2013 +0000
@@ -17,9 +17,10 @@
 $pkg_name = $ARGV[0];
 
 `id -g $pkg_name 2>/dev/null`;
-if ($?){
-  print "No group named $pkg_name.";
-  exit 0;}
+if (($pkg_name eq "") || $?){
+    print "No group named $pkg_name.\n";
+    exit 0;
+}
 
 @files = split(/\0/, `find /usr /opt /etc -group $pkg_name -print0`);
 
diff -r dd480255bd82 -r 819e950ac8cc src/system-init.pl
--- a/src/system-init.pl	Thu Jan 10 16:28:18 2013 +0000
+++ b/src/system-init.pl	Thu Jan 10 16:59:50 2013 +0000
@@ -1,6 +1,6 @@
-#!/usr/bin/env perl
+#!/usr/bin/perl
+use Cwd;
 
-use Cwd;
 
 sub create_install_dir{
   @install_cmd = 
@@ -118,7 +118,7 @@
 
 execute("chown -Rv root:root /.hg");
 
-$pwd = getcwd;
+$pwd = cwd();
 execute("ln -sf $pwd/profile  /pkg/skel/.profile");
 execute("ln -sf $pwd/hg-wrapper /pkg/skel/");
 execute("ln -sf $pwd/save-acls /pkg/skel/");