diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-02-08 11:04:23 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-02-08 11:04:23 +0000 |
| commit | b727803b277ca470daf5b964e7c3dcf112b7c8d6 (patch) | |
| tree | 41d5673cfd62f78ec5b03727ca04d3e2ab8e4732 /perlio.c | |
| parent | 82cfb3a2c3500989056cbc46cb030c206fcb3602 (diff) | |
| download | perl-b727803b277ca470daf5b964e7c3dcf112b7c8d6.tar.gz | |
Remove redundant check
p4raw-id: //depot/perl@33248
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -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; } |