Changeset 24192 for main/trunk/greenstone2/bin/script/gsConvert.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/gsConvert.pl (modified) (2 diffs)

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

@@ -49 +49 @@
 
     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);
@@ -62 +62 @@
 use util;
 use Cwd;
+use Config; # for getting the perlpath in the recommended way
+# Note: even though this (and other) use statement comes after its
+# usage in BEGIN, the use statement is in fact executed before BEGIN.
+
 
 # Are we running on WinNT or Win2000 (or later)?