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

This should totally solve any FHS complaints.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
expect_uml
View File

@ -23,15 +23,6 @@
## ##
############################################################################## ##############################################################################
use BootRoot::UML;
use File::Basename;
if ( !$ARGV[0] ) {
die "expect_uml ubd0 ubd1 other-options mount-point preserve_ownership filesystem_command\n";
}
BEGIN { BEGIN {
@ -54,6 +45,16 @@ BEGIN {
} }
use BootRoot::UML;
use File::Basename;
if ( !$ARGV[0] ) {
die "expect_uml ubd0 ubd1 other-options mount-point preserve_ownership filesystem_command\n";
}
my $arguments = "$ARGV[0] $ARGV[1] $ARGV[2]"; my $arguments = "$ARGV[0] $ARGV[1] $ARGV[2]";
my $mount_point = "$ARGV[3]"; my $mount_point = "$ARGV[3]";
my $preserve_ownership = "$ARGV[4]"; my $preserve_ownership = "$ARGV[4]";

22
yard_chrooted_tests
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 strict;
use BootRoot::Yard; use BootRoot::Yard;
use File::Path; use File::Path;