simplify condition

Sereal · Nov 23, 2012 · 181b6be · 181b6be
1 parent 64aa8c0
commit 181b6be
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Perl/Encoder/srl_encoder.c b/Perl/Encoder/srl_encoder.c
@@ -845,7 +845,7 @@ srl_dump_sv(pTHX_ srl_encoder_t *enc, SV *src)
     UV refcount;
     svtype svt;
     MAGIC *mg;
-    AV **backrefs;
+    AV *backrefs;
     SV* refsv= NULL;
     UV weakref_ofs= 0;              /* preserved between loops */
     ssize_t ref_rewrite_pos= 0;      /* preserved between loops */
@@ -863,8 +863,8 @@ srl_dump_sv(pTHX_ srl_encoder_t *enc, SV *src)
             mg = mg_find(src, PERL_MAGIC_backref);
     }
     if (svt == SVt_PVHV)
-        backrefs= Perl_hv_backreferences_p(aTHX_ MUTABLE_HV(src));
+        backrefs= *Perl_hv_backreferences_p(aTHX_ MUTABLE_HV(src));
-    if ( mg || ( backrefs && *backrefs ) ) {
+    if ( mg || backrefs ) {
         PTABLE_t *weak_seenhash= SRL_GET_WEAK_SEENHASH(enc);
         PTABLE_ENTRY_t *pe= PTABLE_find(weak_seenhash, src);
         if (!pe) {