mirror of
https://github.com/fspc/gbootroot.git
synced 2025-03-04 11:53:26 -05:00
Reiserfs is working now.
This commit is contained in:
parent
dac4e56455
commit
d4a264f475
21
expect_uml
21
expect_uml
@ -11,8 +11,27 @@ if ( !$ARGV[0] ) {
|
||||
|
||||
my $arguments = "$ARGV[0] $ARGV[1] $ARGV[2]";
|
||||
my $mount_point = "$ARGV[3]";
|
||||
my $filesystem = "$ARGV[4];
|
||||
|
||||
my $end = 5;
|
||||
my $filesystem;
|
||||
for ( 4 .. $end ) {
|
||||
if ( $_ == 4 ) {
|
||||
$filesystem = "$ARGV[4]";
|
||||
# What to do with the rieserfs command
|
||||
if ( $filesystem eq "mkreiserfs" ) {
|
||||
$filesystem = $filesystem . " -f -f -q";
|
||||
}
|
||||
}
|
||||
else {
|
||||
if ( $ARGV[$end] ) {
|
||||
$filesystem = $filesystem . " $ARGV[$end]";
|
||||
$end++;
|
||||
}
|
||||
else {
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
my $uml =
|
||||
BootRoot::UML->new( login_prompt => "bootroot login: ",
|
||||
|
Loading…
x
Reference in New Issue
Block a user