Browse Source

Added perl path and authors.

master
freesource 23 years ago
parent
commit
ec4cf9f6a7
  1. 21
      expect_uml
  2. 4
      gbootroot

21
expect_uml

@ -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

@ -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>
# #

Loading…
Cancel
Save