From 3fbf4f041fd6a061a727adc02c21b0586dc06377 Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Tue, 18 Sep 2001 03:10:29 +0000
Subject: [PATCH] This allows extra paths to work correctly.

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

diff --git a/BootRoot/Yard.pm b/BootRoot/Yard.pm
index d9669f8..bc0469d 100644
--- a/BootRoot/Yard.pm
+++ b/BootRoot/Yard.pm
@@ -1,4 +1,4 @@
-#############################################################################
+############################################################################
 ##
 ##  Yard.pm combining
 ##  MAKE_ROOT_FS, CHECK_ROOT_FS, and YARD_UTILS.PL by Tom Fawcett
@@ -59,6 +59,7 @@ my ($text_insert,$red,$blue);
 my $logadj;
 my ($device, $mount_point);
 my $contents_file_tmp; # Checks for template name change
+my @pathlist;
 
 # This solves an annoying problem with the new Perl-5.6 built in glob,
 # allowing earlier versions of Perl to run.
@@ -1260,7 +1261,7 @@ sub sync {
 #  find_file_in_path(file, path)
 #  Finds filename in path.  Path defaults to @pathlist if not provided.
 #  If file is relative, file is resolved relative to config_dest and lib_dest.
-my(@pathlist);
+
 sub find_file_in_path {
 
   my($file, @path) = @_;
@@ -1296,7 +1297,8 @@ sub find_file_in_path {
     undef;
   }
 
-}
+} # end find_file_in_path
+
 
 #  Note that this does not verify existence of the returned file.
 sub make_link_absolute {