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

Added perl path and authors.

Browse Source
This commit is contained in:
freesource 2001-12-24 21:56:55 +00:00
parent df3f36f9cc
commit ec4cf9f6a7
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
expect_uml
View File

@ -33,6 +33,27 @@ if ( !$ARGV[0] ) {
} }
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'};
}
}
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]";

4
gbootroot
View File

@ -63,6 +63,10 @@
# Xavier Bestel <xavier.bestel@free.fr> # Xavier Bestel <xavier.bestel@free.fr>
# Erik Andersen <andersen@codepoet.org> # Erik Andersen <andersen@codepoet.org>
# #
# Expect Modules
# Austin Schutz <ASchutz@users.sourceforge.net>
# Roland Giersig <RGiersig@cpan.org>
#
# Perl # Perl
# Larry Wall <larry@wall.org> # Larry Wall <larry@wall.org>
# #