Changeset 24093 for main/trunk/greenstone2/bin/script/mirror.pl

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/mirror.pl (modified) (2 diffs)

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

@@ -116 +116 @@
     # run the mirror program from the import directory
     my  $cmd = "cd $importdir; ";
-    $cmd .= "perl -S gsw3mir.pl -cfgfile $etcdir/w3mir.cfg";
+    #$^X is a special variable containing the full path to the current perl executable we are in
+    $cmd .= "$^X -S gsw3mir.pl -cfgfile $etcdir/w3mir.cfg";
     # print "\n$cmd\n";
     `$cmd`;
@@ -126 +127 @@
     elsif ((-e "$etcdir/wget.cfg") && (-e "$etcdir/wget.url")) {
     $ENV{WGETRC} = "$etcdir/wget.cfg";
-    my $cmd = "perl -S gsWget.pl --input-file=$etcdir/wget.url --directory-prefix=$importdir";
+    my $cmd = "$^X -S gsWget.pl --input-file=$etcdir/wget.url --directory-prefix=$importdir";
     system($cmd);
     }