This should totally solve any FHS complaints.

This commit is contained in:
freesource
2002-02-04 23:34:31 +00:00
parent 59c296ac23
commit 30e78d4540
2 changed files with 32 additions and 9 deletions
+22
View File
@@ -30,6 +30,28 @@
##
##############################################################################
BEGIN {
my $fhs = grep(/\/usr\/share\/perl5/,@INC);
if ($fhs == 0) {
unshift(@INC,"/usr/share/perl5");
}
my $sbin = grep(/\/sbin/,$ENV{'PATH'});
if ($sbin == 0) {
$ENV{'PATH'} = "/sbin:" . $ENV{'PATH'};
}
$sbin = grep(/\/usr\/sbin/,$ENV{'PATH'});
if ($sbin == 0) {
$ENV{'PATH'} = "/usr/sbin:" . $ENV{'PATH'};
}
}
use strict;
use BootRoot::Yard;
use File::Path;