perldelta for cop_stashoff

[perl5.git] / hv.c

diff --git a/hv.c b/hv.c
index f2fa2bd..ac826f1 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -1858,7 +1858,6 @@ Perl_hv_undef_flags(pTHX_ HV *hv, U32 flags)
       if (!aux->xhv_name_u.xhvnameu_name && ! aux->xhv_backreferences)
        SvFLAGS(hv) &= ~SVf_OOK;
     }
-    HvAMAGIC_off(hv);
     if (!SvOOK(hv)) {
        Safefree(HvARRAY(hv));
        xhv->xhv_max   = 7;     /* HvMAX(hv) = 7 (it's a normal hash) */
@@ -3514,8 +3513,8 @@ Perl_hv_assert(pTHX_ HV *hv)
  * Local variables:
  * c-indentation-style: bsd
  * c-basic-offset: 4
- * indent-tabs-mode: t
+ * indent-tabs-mode: nil
  * End:
  *
- * ex: set ts=8 sts=4 sw=4 noet:
+ * ex: set ts=8 sts=4 sw=4 et:
  */