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

* minor edit

Browse Source
This commit is contained in:
freesource 2000-12-15 02:11:57 +00:00
parent ebe2b7cab3
commit 16612c0321
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Yard.pm
View File

@ -1141,6 +1141,7 @@ sub sync {
} }
## Need to put error() checking here ## Need to put error() checking here
## This is used for ./Replacements config_dest == /etc/yard
# find_file_in_path(file, path) # find_file_in_path(file, path)
# Finds filename in path. Path defaults to @pathlist if not provided. # 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. # If file is relative, file is resolved relative to config_dest and lib_dest.
@ -1149,6 +1150,8 @@ 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) {
@ -1165,11 +1168,11 @@ sub find_file_in_path {
} }
if ($file) { if ($file) {
##### Relative filename, search for it ##### Relative filename, search for it
my($dir); my($dir);
## foreach $dir (@path, $config_dest, $lib_dest
foreach $dir (@path) { foreach $dir (@path) {
my($abs_file) = "$dir/$file"; my($abs_file) = "$dir/$file";
return $abs_file if -e $abs_file; return $abs_file if -e $abs_file;