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

Timestamp:

2011-06-08T16:46:34+12:00 (13 years ago)

Author:

ak19

Message:

Sam and I fixed decided all calls to perl -S from within perl needed to use the special dollar-caret-X variable to refer to the particular perl installation that was also used to run the caller script. This way we have a consistent perl and we know which perlpath works. This variable is moreover embedded in quotes to deal with any spaces in the path to the perl installation.

File:

• main/trunk/greenstone2/perllib/cgiactions/baseaction.pm (modified) (2 diffs)

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

@@ -433 +433 @@
     my $gsdl_cgi = $self->{'gsdl_cgi'};
 
-    my $sendmail_command = "perl -S sendmail.pl";
+    my $sendmail_command = "\"$^X\" -S sendmail.pl";
     $sendmail_command .= " -to \"" . $mail_to_address . "\"";
     $sendmail_command .= " -from \"" . $mail_from_address . "\"";
@@ -462 +462 @@
     $perl_args = "-collectdir \"$collect_dir\" " . $perl_args;
 
-    my $perl_command = "perl -S $script $perl_args";
+    my $perl_command = "\"$^X\" -S $script $perl_args";