From: Chip Salzenberg <chip@perl.com>
Date: Thu, 24 Apr 1997 14:34:21 +0000 (+1200)
Subject: Forget prototype of subroutine after C<undef &subr>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1d5db3267290eb95285de2427e6b4f4c072cc986;p=p5sagit%2Fp5-mst-13.2.git

Forget prototype of subroutine after C<undef &subr>
---

diff --git a/op.c b/op.c
index cf78f86..af7ec8b 100644
--- 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;