Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

simplify condition

  • Loading branch information...
commit 181b6bec3d3d2fd4bf869a3208606128ea0df1f1 1 parent 64aa8c0
@demerphq demerphq authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 Perl/Encoder/srl_encoder.c
View
6 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));
- if ( mg || ( backrefs && *backrefs ) ) {
+ backrefs= *Perl_hv_backreferences_p(aTHX_ MUTABLE_HV(src));
+ if ( mg || backrefs ) {
PTABLE_t *weak_seenhash= SRL_GET_WEAK_SEENHASH(enc);
PTABLE_ENTRY_t *pe= PTABLE_find(weak_seenhash, src);
if (!pe) {

0 comments on commit 181b6be

Please sign in to comment.
Something went wrong with that request. Please try again.