Save anchors also for blessed scalars

ingydotnet · Jun 15, 2018 · bc26979 · bc26979
1 parent 4b1eae1
commit bc26979
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/LibYAML/perl_libyaml.c b/LibYAML/perl_libyaml.c
@@ -443,6 +443,8 @@ load_scalar(perl_yaml_loader_t *loader)
             else
                 scalar = sv_setref_pvn(newSV(0), NULL, string, strlen(string));
             SvUTF8_on(scalar);
+            if (anchor)
+                hv_store(loader->anchors, anchor, strlen(anchor), SvREFCNT_inc(scalar), 0);
             return scalar;
         }
     }