Changeset 24192 for main/trunk/greenstone2/bin/script/gti.pl

Timestamp:

2011-06-22T17:39:13+12:00 (13 years ago)

Author:

ak19

Message:

Sam discovered that using dollar-Config{perlpath} in place of dollar-hat-X is the better way to obtain the path to the perl that is being used. We hope this will not be a relative path on the Mac as dollar-hat-x was on Professor Witten's Mac when we tried it there today.

File:

• main/trunk/greenstone2/bin/script/gti.pl (modified) (2 diffs)

main/trunk/greenstone2/bin/script/gti.pl

@@ -33 +33 @@
 
     if(!$ENV{'PERLPATH'}) {
-    my $full_perl_exec = $^X;
+    my $full_perl_exec = $Config{perlpath}; #$^X;
     require File::Basename;
     my $perl_path = File::Basename::dirname($full_perl_exec);
@@ -43 +43 @@
 use strict;
 use util;
+use Config; # for getting the perlpath (above!) in the recommended way