From 38aaef1e04382d547210e84ae10383904daa75dc Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Sun, 18 Nov 2001 05:56:44 +0000
Subject: [PATCH] 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.

---
 BootRoot/Yard.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/BootRoot/Yard.pm b/BootRoot/Yard.pm
index c195894..09e28b4 100644
--- a/BootRoot/Yard.pm
+++ b/BootRoot/Yard.pm
@@ -1521,9 +1521,9 @@ sub find_file_in_path {
 
   my($file, @path) = @_;
 
-  if (!@path) {
+  ## if (!@path) {
     #####  Initialize @pathlist if necessary
-    if (!@pathlist) {
+    ## if (!@pathlist) {
       @pathlist = split(':', $ENV{'PATH'});
       if (defined(@::additional_dirs)) {
 	unshift(@pathlist, @::additional_dirs);
@@ -1531,10 +1531,10 @@ sub find_file_in_path {
 	$ENV{"PATH"} = join(":", @::additional_dirs) .
 	    ":$ENV{'PATH'}";
       }
-      info(1, "Using search path:\n", join(" ", @pathlist), "\n");
-    }
+      ##info(1, "Using search path:\n", join(" ", @pathlist), "\n");
+    ## }
     @path = @pathlist;
-  }
+  ## }
 
 
   if ($file) {