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

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

@@ -48 +48 @@
 }
 
+use Config; # for getting the perlpath in the recommended way
 use arcinfo;
 use colcfg;
@@ -116 +117 @@
     # run the mirror program from the import directory
     my  $cmd = "cd $importdir; ";
-    #$^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";
+    #Config{perlpath}, like $^X, is a special variable containing the full path to the current perl executable we are in
+    $cmd .= "\"$Config{perlpath}\" -S gsw3mir.pl -cfgfile $etcdir/w3mir.cfg";
     # print "\n$cmd\n";
     `$cmd`;
@@ -127 +128 @@
     elsif ((-e "$etcdir/wget.cfg") && (-e "$etcdir/wget.url")) {
     $ENV{WGETRC} = "$etcdir/wget.cfg";
-    my $cmd = "\"$^X\" -S gsWget.pl --input-file=$etcdir/wget.url --directory-prefix=$importdir";
+    my $cmd = "\"$Config{perlpath}\" -S gsWget.pl --input-file=$etcdir/wget.url --directory-prefix=$importdir";
     system($cmd);
     }