From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 14 Apr 2002 09:18:01 +0000 (+0000)
Subject: Disable test code (assertions) in CRLF layer.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b4bd3fd9ce156dd5810f53e7d2c862917be2cb9;p=p5sagit%2Fp5-mst-13.2.git

Disable test code (assertions) in CRLF layer.

p4raw-id: //depot/perlio@15904
---

diff --git a/perlio.c b/perlio.c
index 0f34462..7661fc4 100644
--- a/perlio.c
+++ b/perlio.c
@@ -3563,7 +3563,6 @@ PerlIOCrlf_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt)
 {
     PerlIOBuf *b = PerlIOSelf(f, PerlIOBuf);
     PerlIOCrlf *c = PerlIOSelf(f, PerlIOCrlf);
-    IV flags = PerlIOBase(f)->flags;
     if (!b->buf)
 	PerlIO_get_base(f);
     if (!ptr) {
@@ -3580,10 +3579,11 @@ PerlIOCrlf_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt)
 	ptr -= cnt;
     }
     else {
-#if 1
+#if 0
 	/*
 	 * Test code - delete when it works ...
 	 */
+	IV flags = PerlIOBase(f)->flags;
 	STDCHAR *chk = (c->nl) ? (c->nl+1) : b->end;
         if (ptr+cnt == c->nl && c->nl+1 == b->end && *c->nl == 0xd) {
 	  /* Defered CR at end of buffer case - we lied about count */