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

diff --git a/pp_sys.c b/pp_sys.c
index c943c08..e5d27f1 100644 (file)
--- 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;