Browse Source

* minor edit

master
freesource 24 years ago
parent
commit
16612c0321
  1. 5
      Yard.pm

5
Yard.pm

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

Loading…
Cancel
Save