From 41e126df67519f1c1c7cbf3146a8af74fac29c19 Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Thu, 20 Feb 2003 17:38:56 +0000
Subject: [PATCH] Had to add more changes to expect_uml and UML so that there
 will be an established PATH, and so that uml_mconsole's system command won't
 be issued until the last line is actually come to via a new method.

Nothing can ever be too simple.
---
 BootRoot/UML.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/BootRoot/UML.pm b/BootRoot/UML.pm
index 458b378..e0521f8 100644
--- a/BootRoot/UML.pm
+++ b/BootRoot/UML.pm
@@ -95,8 +95,8 @@ sub boot {
 
 
     $me->{expect_handle}->expect(undef, "-re", "$me->{prompt}");
-    $me->{expect_handle}->print("echo Let's make you're root_fs!\r");
-    $me->{expect_handle}->print("\r");
+    $me->{expect_handle}->print("echo Let's make you're root_fs!\n");
+    $me->{expect_handle}->expect(undef, "-re", "root_fs");
  
     return($log);
 }
@@ -117,7 +117,7 @@ sub command {
     }
 
     # adding an \r handles some buggy expectations
-    $me->{expect_handle}->print("$cmd\r\n");
+    $me->{expect_handle}->print("$cmd\n");
     my @match = $me->{expect_handle}->expect(undef, @expects);
     defined $match[0] and $match[0]--;
     if(defined($match[1])){