From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 8 Feb 2008 11:04:23 +0000 (+0000)
Subject: Remove redundant check
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b727803b277ca470daf5b964e7c3dcf112b7c8d6;p=p5sagit%2Fp5-mst-13.2.git

Remove redundant check

p4raw-id: //depot/perl@33248
---

diff --git a/perlio.c b/perlio.c
index 3cb591d..d9c1e97 100644
--- a/perlio.c
+++ b/perlio.c
@@ -4102,10 +4102,8 @@ PerlIOBuf_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt)
     if (!b->buf)
 	PerlIO_get_base(f);
     b->ptr = ptr;
-    if (PerlIO_get_cnt(f) != cnt || b->ptr < b->buf) {
-	assert(PerlIO_get_cnt(f) == cnt);
-	assert(b->ptr >= b->buf);
-    }
+    assert(PerlIO_get_cnt(f) == cnt);
+    assert(b->ptr >= b->buf);
     PerlIOBase(f)->flags |= PERLIO_F_RDBUF;
 }