|
@ -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]"; |
|
|