bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 17:13:22 -05:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
what was happening was that @paths couldn't be changed after they were
defined, but not any more.
This commit is contained in:
freesource 2001-11-18 05:56:44 +00:00
parent 780ac8b3d8
commit 38aaef1e04
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
BootRoot/Yard.pm
View File

@ -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) {