From ec4cf9f6a7cbd0cba3aa23d7f70bb43fe71e7bdc Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Mon, 24 Dec 2001 21:56:55 +0000
Subject: [PATCH] Added perl path and authors.

---
 expect_uml | 21 +++++++++++++++++++++
 gbootroot  |  4 ++++
 2 files changed, 25 insertions(+)

diff --git a/expect_uml b/expect_uml
index f3c758a..dce5300 100755
--- a/expect_uml
+++ b/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 $mount_point = "$ARGV[3]";
 my $preserve_ownership = "$ARGV[4]";
diff --git a/gbootroot b/gbootroot
index 0b3e68b..32dcb70 100755
--- a/gbootroot
+++ b/gbootroot
@@ -63,6 +63,10 @@
 #    Xavier Bestel <xavier.bestel@free.fr>
 #    Erik Andersen <andersen@codepoet.org>   
 #
+#    Expect Modules
+#    Austin Schutz <ASchutz@users.sourceforge.net>
+#    Roland Giersig <RGiersig@cpan.org>
+#
 #    Perl
 #    Larry Wall <larry@wall.org>
 #