1 files changed, 1 insertions, 0 deletions
diff --git a/op.c b/op.c
index a866fcbf08..30231d3830 100644
--- a/op.c
+++ b/op.c
@@ -248,6 +248,7 @@ Perl_allocmy(pTHX_ char *name)
 	    /* 1999-02-27 mjd@plover.com */
 	    char *p;
 	    p = strchr(name, '\0');
+	    assert(p);
 	    /* The next block assumes the buffer is at least 205 chars
 	       long.  At present, it's always at least 256 chars. */
 	    if (p - name > 200) {