|
@@ -19,11 +19,10 @@ if ( ! -d ".git" ) {
|
|
|
sub initSG($) {
|
|
|
|
|
|
my $sgDir = shift;
|
|
|
- my $pwdCmd = findBin("pwd");
|
|
|
- my $pwd = shellex($pwdCmd);
|
|
|
- chomp $pwd;
|
|
|
- my $path = $pwd . "/" . $sgDir;
|
|
|
- my $logFile = $pwd . "/" . $sgDir . "/" . "sgLog.txt";
|
|
|
+ my $homeDir = shellex("echo \$HOME");
|
|
|
+ chomp $homeDir;
|
|
|
+ my $path = $homeDir . "/" . $sgDir;
|
|
|
+ my $logFile = $homeDir . "/" . $sgDir . "/" . "sgLog.txt";
|
|
|
if ( ! -d $path ) {
|
|
|
print "Creating $path\n";
|
|
|
shellex("mkdir $path");
|