add diagnostics and asserts temporarily

Sereal · Nov 23, 2012 · 598a44d · 598a44d
1 parent f9f57fa
commit 598a44d
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/Perl/Encoder/srl_encoder.c b/Perl/Encoder/srl_encoder.c
@@ -907,7 +907,10 @@ srl_dump_sv(pTHX_ srl_encoder_t *enc, SV *src)
             PTABLE_store(ref_seenhash, src, (void *)BUF_POS_OFS(enc));
         }
     }
-    assert(weakref_ofs == 0);
+    if (weakref_ofs != 0) {
+        sv_dump(src);
+        assert(weakref_ofs == 0);
+    }
     if (SvPOKp(src)) {
 #ifdef MODERN_REGEXP
         if (expect_false( svt == SVt_REGEXP ) ) {
@@ -935,6 +938,10 @@ srl_dump_sv(pTHX_ srl_encoder_t *enc, SV *src)
     if (SvROK(src)) {
         /* dump references */
         SV *referent= SvRV(src);
+        if (!referent) {
+            sv_dump(src);
+            assert(referent);
+        }
         if (SvWEAKREF(src)) {
             weakref_ofs= BUF_POS_OFS(enc);
             srl_buf_cat_char(enc, SRL_HDR_WEAKEN);