Change 16512: Integrate from macperl

Change 16512 by pudge@pudge-mobile on 2002/05/09 03:44:21

	Integrate from macperl

Affected files ...

.... //depot/maint-5.6/macperl/macos/macperl/MPConsole.cp#7 integrate

Differences ...

==== //depot/maint-5.6/macperl/macos/macperl/MPConsole.cp#7 (text) ====
Index: macperl/macos/macperl/MPConsole.cp
--- macperl/macos/macperl/MPConsole.cp#6~14071~	Fri Jan  4 12:35:52 2002
+++ macperl/macos/macperl/MPConsole.cp	Wed May  8 20:44:21 2002
@@ -5,6 +5,9 @@
 Language	:	MPW C/C++
 
 $Log: MPConsole.cp,v $
+Revision 1.11  2002/05/08 07:17:12  neeri
+Make interrupt act as end of file (MacPerl Bug #542154)
+
 Revision 1.10  2002/01/04 03:34:45  pudge
 Modifications for universal headers 3.4
 
@@ -263,7 +266,7 @@
 	
 	avail = int(GetHandleSize(input));
 	
-	if (!avail)	{
+	if (!avail)	{ 
 		if (eof) {
 			eof = false;
 			
@@ -285,7 +288,7 @@
 			GUSIErrorSaver saveError;
 			
 			gWantConsoleInput	= true;
-			while(!(avail = int(GetHandleSize(input))) && !eof && window)
+			while(!(avail = int(GetHandleSize(input))) && !eof && window && window->u.cons.selected)
 				GUSIContext::Yield(kGUSIPoll);
 			gWantConsoleInput	= false;
 	
End of Patch.