Change 16511: Make interrupt act as end of file, MacPerl Bug #542154

Change 16511 by pudge@pudge-mobile on 2002/05/09 03:34:14

	Make interrupt act as end of file, MacPerl Bug #542154

Affected files ...

.... //depot/macperl/macos/macperl/MPConsole.cp#2 edit

Differences ...

==== //depot/macperl/macos/macperl/MPConsole.cp#2 (text) ====
Index: macperl/macos/macperl/MPConsole.cp
--- macperl/macos/macperl/MPConsole.cp#1~16123~	Tue Apr 23 18:25:17 2002
+++ macperl/macos/macperl/MPConsole.cp	Wed May  8 20:34:14 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.