Changeset 24192 for main/trunk/greenstone2/perllib/cgiactions/baseaction.pm

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/perllib/cgiactions/baseaction.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/cgiactions/baseaction.pm

@@ -30 +30 @@
 
 use inexport;
+use Config; # for getting the perlpath in the recommended way
 
 our $authenication_enabled = 0;
@@ -433 +434 @@
     my $gsdl_cgi = $self->{'gsdl_cgi'};
 
-    my $sendmail_command = "\"$^X\" -S sendmail.pl";
+    my $sendmail_command = "\"$Config{perlpath}\" -S sendmail.pl";
     $sendmail_command .= " -to \"" . $mail_to_address . "\"";
     $sendmail_command .= " -from \"" . $mail_from_address . "\"";
@@ -462 +463 @@
     $perl_args = "-collectdir \"$collect_dir\" " . $perl_args;
 
-    my $perl_command = "\"$^X\" -S $script $perl_args";
+    my $perl_command = "\"$Config{perlpath}\" -S $script $perl_args";