Browse Source

This provides proper output when the path has been changed, basically, if

it is the same thing again, it won't be listed.
master
freesource 23 years ago
parent
commit
d50e13b210
  1. 12
      BootRoot/YardBox.pm

12
BootRoot/YardBox.pm

@ -1837,8 +1837,18 @@ sub path {
my @pathlist = split(':', $ENV{'PATH'}); my @pathlist = split(':', $ENV{'PATH'});
@main::additional_dirs = split(/:|\s+|,/,$entry[3]); @main::additional_dirs = split(/:|\s+|,/,$entry[3]);
my @additional_dirs;
# Check to see if this path doesn't already exist.
foreach my $alt_path ( @main::additional_dirs ) {
my $add_path = grep(/$alt_path/,$ENV{'PATH'});
if ($add_path == 0) {
push(@additional_dirs, $alt_path);
}
}
info(1, "Search path is now:\n", info(1, "Search path is now:\n",
join(" ", @main::additional_dirs), " ", join(" ", @additional_dirs), " ",
join(" ", @pathlist), "\n"); join(" ", @pathlist), "\n");
} }
} ); } );

Loading…
Cancel
Save