1 files changed, 3 insertions, 0 deletions
diff --git a/op.c b/op.c
index 043f0be6c0..5c55f0d5f9 100644
--- a/op.c
+++ b/op.c
@@ -5217,6 +5217,9 @@ Perl_newXS(pTHX_ char *name, XSUBADDR_t subaddr, char *filename)
 			GV_ADDMULTI, SVt_PVCV);
     register CV *cv;
 
+    if (!subaddr)
+	Perl_croak(aTHX_ "panic: no address for '%s' in '%s'", name, filename);
+
     if ((cv = (name ? GvCV(gv) : Nullcv))) {
 	if (GvCVGEN(gv)) {
 	    /* just a cached method */