Changeset 24362 for main/trunk/greenstone2/perllib/g2futil.pm

Timestamp:

2011-08-03T21:17:30+12:00 (13 years ago)

Author:

ak19

Message:

The method of locating perl has changed once more: util now defines the fuction get_perl_exec which is used by other scripts to obtain the path to the perl executable they should use.

File:

• main/trunk/greenstone2/perllib/g2futil.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/g2futil.pm

@@ -15 +15 @@
 use strict;
 use util;
-use Config; # for getting the perlpath in the recommended way
 
 sub run_cmd_old
@@ -31 +30 @@
     
     if ($verbosity >= 2) {
-    print "Runing command:\n";
+    print "Running command:\n";
     print "$cmd\n";
     }
@@ -64 +63 @@
     }
     if (($prog =~ m/.pl$/i) && ($ENV{'GSDLOS'} =~ m/^windows/)) {
-    $prog ="\"$Config{perlpath}\" -S $prog";
+    $prog ="\"".&util::get_perl_exec()."\" -S $prog";
     }