[Jifty-commit] r5736 - in B-Utils: .

[Jifty commits]

Author: clkao
Date: Sat Aug 16 12:04:12 2008
New Revision: 5736

Modified:
   B-Utils/Utils.xs
   B-Utils/lib/B/Utils.pm

Log:
CvNEW_with_start moved to B::Generate

Modified: B-Utils/Utils.xs
==============================================================================
--- B-Utils/Utils.xs	(original)
+++ B-Utils/Utils.xs	Sat Aug 16 12:04:12 2008
@@ -255,29 +255,4 @@
     return arg;
 }
 
-/* XXX: this actually belongs to B::Generate */
 MODULE = B::Utils           PACKAGE = B::Utils
-
-#define PERL_CORE
-#include "embed.h"
-
-#define newSV_type(a)           Perl_newSV_type(aTHX_ a)
-
-B::CV
-CvNEW_with_start(cv, root, start)
-       B::CV   cv
-       B::OP   root
-       B::OP   start
-    PREINIT:
-       CV *new;
-    CODE:
-       new = cv_clone(cv);
-       CvROOT(new) = root;
-       CvSTART(new) = start;
-       CvDEPTH(new) = 0;
-       SvREFCNT_inc(new);
-       RETVAL = new;
-    OUTPUT:
-       RETVAL
-
-#undef PERL_CORE

Modified: B-Utils/lib/B/Utils.pm
==============================================================================
--- B-Utils/lib/B/Utils.pm	(original)
+++ B-Utils/lib/B/Utils.pm	Sat Aug 16 12:04:12 2008
@@ -1072,8 +1072,6 @@
     return $args;
 }
 
-*B::CV::NEW_with_start = *CvNEW_with_start;
-
 =back
 
 =head2 EXPORT