bugfix for Stdio.FILE->gets() [bug 5]

Rev: lib/modules/Stdio.pmod/module.pmod:1.84

lib/modules/Stdio.pmod/module.pmod

-// $Id: module.pmod,v 1.83 2000/08/27 18:29:27 mirar Exp $
+// $Id: module.pmod,v 1.84 2000/08/28 21:08:28 hubbe Exp $
 
 import String;
 
@@ -497,7 +497,13 @@ class FILE {
       while((p=search(b, "\n", bpos+tmp)) == -1)
       {
 	tmp=strlen(b)-bpos;
-	if(!get_data()) return 0;
+	if(!get_data()) 
+	{
+	  if(bpos==sizeof(b))
+	     return 0;
+	  else
+	    return extract(sizeof(b)-bpos,0);
+	}
       }
       return extract(p-bpos, 1);
     }