1.1 --- a/src/system-init.pl	Thu Jan 10 16:28:18 2013 +0000
     1.2 +++ b/src/system-init.pl	Thu Jan 10 16:59:50 2013 +0000
     1.3 @@ -1,6 +1,6 @@
     1.4 -#!/usr/bin/env perl
     1.5 +#!/usr/bin/perl
     1.6 +use Cwd;
     1.7  
     1.8 -use Cwd;
     1.9  
    1.10  sub create_install_dir{
    1.11    @install_cmd = 
    1.12 @@ -118,7 +118,7 @@
    1.13  
    1.14  execute("chown -Rv root:root /.hg");
    1.15  
    1.16 -$pwd = getcwd;
    1.17 +$pwd = cwd();
    1.18  execute("ln -sf $pwd/profile  /pkg/skel/.profile");
    1.19  execute("ln -sf $pwd/hg-wrapper /pkg/skel/");
    1.20  execute("ln -sf $pwd/save-acls /pkg/skel/");