Upgrade to Math::BigInt 1.66.

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index 991a426..a69b515 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3787,8 +3787,6 @@ Perl_newLOOPEX(pTHX_ I32 type, OP *label)
     return o;
 }
 
-static void const_sv_xsub(pTHX_ CV* cv);
-
 /*
 =for apidoc cv_undef
 
@@ -3804,9 +3802,8 @@ void
 Perl_cv_undef(pTHX_ CV *cv)
 {
 #ifdef USE_ITHREADS
-    if (CvFILE(cv) && (!CvXSUB(cv) || CvXSUB(cv) == const_sv_xsub)) {
-       /* for XSUBs CvFILE point directly to static memory; __FILE__ 
-        * except when XSUB was constructed via newCONSTSUB() */
+    if (CvFILE(cv) && !CvXSUB(cv)) {
+       /* for XSUBs CvFILE point directly to static memory; __FILE__ */
        Safefree(CvFILE(cv));
     }
     CvFILE(cv) = 0;
@@ -3868,6 +3865,8 @@ Perl_cv_ckproto(pTHX_ CV *cv, GV *gv, char *p)
     }
 }
 
+static void const_sv_xsub(pTHX_ CV* cv);
+
 /*
 
 =head1 Optree Manipulation Functions