Forget prototype of subroutine after C<undef &subr>

diff --git a/op.c b/op.c
index cf78f86..af7ec8b 100644 (file)
--- a/op.c
+++ b/op.c
@@ -2930,6 +2930,7 @@ CV *cv;
        CvROOT(cv) = Nullop;
        LEAVE;
     }
+    SvPOK_off((SV*)cv);                /* forget prototype */
     CvFLAGS(cv) = 0;
     SvREFCNT_dec(CvGV(cv));
     CvGV(cv) = Nullgv;