bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-03-11 23:33:23 -04:00
Code Issues Projects Releases Wiki Activity

More stuff

Browse Source
This commit is contained in:
freesource 2003-02-25 18:55:18 +00:00
parent 9e8160f0ed
commit a7af2cf254
3 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
expect_uml
View File

@ -29,12 +29,11 @@ BEGIN {
my $fhs = grep(/\/usr\/share\/perl5/,@INC);
unshift(@INC,"."); # better make sure we mean . when we mean .
if ($fhs == 0) {
unshift(@INC,"/usr/share/perl5");
}
unshift(@INC,"."); # better make sure we mean . when we mean .
my $sbin = grep(/\/sbin/,$ENV{'PATH'});
if ($sbin == 0) {

3
gbootroot
View File

@ -220,12 +220,11 @@ BEGIN {
my $fhs = grep(/\/usr\/share\/perl5/,@INC);
unshift(@INC,"."); # better make sure we mean . when we mean .
if ($fhs == 0) {
unshift(@INC,"/usr/share/perl5");
}
unshift(@INC,"."); # better make sure we mean . when we mean .
my $sbin = grep(/\/sbin/,$ENV{'PATH'});
if ($sbin == 0) {

2
yard_chrooted_tests
View File

@ -36,12 +36,12 @@ BEGIN {
my $fhs = grep(/\/usr\/share\/perl5/,@INC);
unshift(@INC,"."); # better make sure we mean . when we mean .
if ($fhs == 0) {
unshift(@INC,"/usr/share/perl5");
}
unshift(@INC,"."); # better make sure we mean . when we mean .
my $sbin = grep(/\/sbin/,$ENV{'PATH'});
if ($sbin == 0) {