From e9030a5ecca1cb6f984da6017dffd263c0e6801d Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Thu, 20 Feb 2003 07:45:47 +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 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/BootRoot/UML.pm b/BootRoot/UML.pm
index eb3f9ad..458b378 100644
--- a/BootRoot/UML.pm
+++ b/BootRoot/UML.pm
@@ -115,7 +115,9 @@ sub command {
     foreach my $str (@expects){
 	$str ne "-re" and push @strings, $str;
     }
-    $me->{expect_handle}->print("$cmd\n");
+
+    # adding an \r handles some buggy expectations
+    $me->{expect_handle}->print("$cmd\r\n");
     my @match = $me->{expect_handle}->expect(undef, @expects);
     defined $match[0] and $match[0]--;
     if(defined($match[1])){