mirror of
https://github.com/fspc/gbootroot.git
synced 2026-09-08 12:51:40 -04:00
This should totally solve any FHS complaints.
This commit is contained in:
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user