From: Doug MacEachern <dougm@covalent.net>
Date: Fri, 11 May 2001 16:52:29 +0000 (-0700)
Subject: Re: undef(&foo) does not work for XS functions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=50762d599a70539e068604b244288cd8a1dd3ee1;p=p5sagit%2Fp5-mst-13.2.git

Re: undef(&foo) does not work for XS functions
Message-ID: <Pine.LNX.4.21.0105111647240.4478-100000@mako.covalent.net>

p4raw-id: //depot/perl@10088
---

diff --git a/op.c b/op.c
index 77a6267..5a51f9b 100644
--- a/op.c
+++ b/op.c
@@ -4216,6 +4216,9 @@ Perl_cv_undef(pTHX_ CV *cv)
 	}
 	CvPADLIST(cv) = Nullav;
     }
+    if (CvXSUB(cv)) {
+        CvXSUB(cv) = 0;
+    }
     CvFLAGS(cv) = 0;
 }