Changeset 24223

Timestamp:

2011-07-04T15:01:03+12:00 (13 years ago)

Author:

ak19

Message:

More changes to do with obtaining the perlpath using Config: moved the Use Config statement into the Begin block (it cannot be a Require statement for some reason).

Location:

main/trunk/greenstone2/bin/script

Files:

• gsConvert.pl (modified) (2 diffs)
• gti.pl (modified) (2 diffs)

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

@@ -49 +49 @@
 
     if(!$ENV{'PERLPATH'}) {
-    my $full_perl_exec = $Config{perlpath}; #$^X;
+    use Config; # for some reason, this can't be a require statement
+    my $full_perl_exec = $Config{perlpath}; #$^X;   
     require File::Basename;
     my $perl_path = File::Basename::dirname($full_perl_exec);
@@ -62 +63 @@
 use util;
 use Cwd;
-use Config; # for getting the perlpath in the recommended way
+#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.
+# Doesn't work here for Greenstone 3.
 
 

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

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