Browse Source

This fixes the problem with paths only being allowed to be altered initally,

what was happening was that @paths couldn't be changed after they were
defined, but not any more.
master
freesource 23 years ago
parent
commit
38aaef1e04
  1. 10
      BootRoot/Yard.pm

10
BootRoot/Yard.pm

@ -1521,9 +1521,9 @@ sub find_file_in_path {
my($file, @path) = @_; my($file, @path) = @_;
if (!@path) { ## if (!@path) {
##### Initialize @pathlist if necessary ##### Initialize @pathlist if necessary
if (!@pathlist) { ## if (!@pathlist) {
@pathlist = split(':', $ENV{'PATH'}); @pathlist = split(':', $ENV{'PATH'});
if (defined(@::additional_dirs)) { if (defined(@::additional_dirs)) {
unshift(@pathlist, @::additional_dirs); unshift(@pathlist, @::additional_dirs);
@ -1531,10 +1531,10 @@ sub find_file_in_path {
$ENV{"PATH"} = join(":", @::additional_dirs) . $ENV{"PATH"} = join(":", @::additional_dirs) .
":$ENV{'PATH'}"; ":$ENV{'PATH'}";
} }
info(1, "Using search path:\n", join(" ", @pathlist), "\n"); ##info(1, "Using search path:\n", join(" ", @pathlist), "\n");
} ## }
@path = @pathlist; @path = @pathlist;
} ## }
if ($file) { if ($file) {

Loading…
Cancel
Save