From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Sun, 27 Feb 2005 11:28:27 +0000 (+0000)
Subject: Fix for bug [ID 20020227.005] format bug with undefined _TOP
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b929a54bc3b1e6622917dee605ce635e4c48caf4;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;