Changeset 24093 for main/trunk/greenstone2/bin/script/build

Timestamp:

2011-05-26T14:45:49+12:00 (13 years ago)

Author:

sjm84

Message:

Fixing issues with perl finding the wrong perl by making sure it uses the one that is currently running

File:

• main/trunk/greenstone2/bin/script/build (modified) (4 diffs)

main/trunk/greenstone2/bin/script/build

@@ -276 +276 @@
         #       option was given to build)
 
-        my $download_cmd = "perl -S gsWget.pl -P \"$importdir\" -np -nv";
+        #$^X is a special variable containing the full path to the current perl executable we are in
+        my $download_cmd = "$^X -S gsWget.pl -P \"$importdir\" -np -nv";
         $download_cmd .= " -r -N -l inf -R \"*\\?*\"";
         $download_cmd .= " -o \"$outfile.download\"" if $use_out;
@@ -325 +326 @@
         if (-e $download_dir) {
             # copy download_dir and all it contains to the import directory
-            my $download_cmd = "perl -S filecopy.pl";
+            #$^X is a special variable containing the full path to the current perl executable we are in
+            my $download_cmd = "$^X -S filecopy.pl";
             $download_cmd .= " -collectdir \"$collectdir\"" if $collectdir =~ /\w/;
             $download_cmd .= " -site \"$site\"" if $site =~ /\w/;
@@ -464 +466 @@
     print $out "importing the $collection collection\n\n";
 
-    my $import_cmd = "perl -S import.pl";
+    #$^X is a special variable containing the full path to the current perl executable we are in
+    my $import_cmd = "$^X -S import.pl";
     $import_cmd .= " -out \"$outfile.import\"" if $use_out;
     if ($append) {
@@ -510 +513 @@
     print $out "building the $collection collection\n\n";
 
-    my $build_cmd = "perl -S buildcol.pl";
+    #$^X is a special variable containing the full path to the current perl executable we are in
+    my $build_cmd = "$^X -S buildcol.pl";
 
     my $removeold = 1;