Fix for bug [ID 20020227.005] format bug with undefined _TOP

http://rt.perl.org/rt3/Ticket/Display.html?id=8698
If there was no TOP format the lines left on page was set
to fixed number, now set to the current page length of the
IO channel used. More debugging for yet another bug needed.

p4raw-id: //depot/perl@23999

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index c943c08006..e5d27f10cd 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1347,7 +1347,7 @@ PP(pp_leavewrite)
 	    }
 	    topgv = gv_fetchpv(IoTOP_NAME(io),FALSE, SVt_PVFM);
 	    if (!topgv || !GvFORM(topgv)) {
-		IoLINES_LEFT(io) = 100000000;
+		IoLINES_LEFT(io) = IoPAGE_LEN(io);
 		goto forget_top;
 	    }
 	    IoTOP_GV(io) = topgv;