[perl.git] branch sprout/padlist-sharing, updated. v5.21.5-142-g7c6e8e9

[Father Chrysostomos]

In perl.git, the branch sprout/padlist-sharing has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/7c6e8e934613ed62cf6c919d48ecc6c876390d6a?hp=b85d087794bb7bdeff3dfd37fb8accd57d957c13>

- Log -----------------------------------------------------------------
commit 7c6e8e934613ed62cf6c919d48ecc6c876390d6a
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Wed Oct 29 20:32:42 2014 -0700

    Comment out ‘Can't undef active sub’
    
    Temporary hack for testing.
-----------------------------------------------------------------------

Summary of changes:
 pad.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pad.c b/pad.c
index 614f668..9fb841f 100644
--- a/pad.c
+++ b/pad.c
@@ -351,10 +351,11 @@ Perl_cv_undef_flags(pTHX_ CV *cv, U32 flags)
     if (!CvISXSUB(&cvbody)) {
         if(CvROOT(&cvbody)) {
             assert(SvTYPE(cv) == SVt_PVCV || SvTYPE(cv) == SVt_PVFM); /*unsafe 
is safe */
-            if (CvDEPTHunsafe(&cvbody)) {
+/*            if (CvDEPTHunsafe(&cvbody)) {
                 assert(SvTYPE(cv) == SVt_PVCV);
                 Perl_croak_nocontext("Can't undef active subroutine");
             }
+*/
             ENTER;
 
             PAD_SAVE_SETNULLPAD();

--
Perl5 Master Repository