This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perlio.c: Coverity finding: finding false (Coverity not able to follow vtable logic...
[perl5.git] / perlio.c
index e796607..47fbd92 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -3709,6 +3709,8 @@ PerlIOBuf_fill(pTHX_ PerlIO *f)
     if (!b->buf)
        PerlIO_get_base(f);     /* allocate via vtable */
 
     if (!b->buf)
        PerlIO_get_base(f);     /* allocate via vtable */
 
+    assert(b->buf);
+
     b->ptr = b->end = b->buf;
 
     if (!PerlIOValid(n)) {
     b->ptr = b->end = b->buf;
 
     if (!PerlIOValid(n)) {