]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Replace an occurrence of SvREFCNT_inc by SvREFCNT_inc_simple_NN
authorVincent Pit <vince@profvince.com>
Wed, 15 Jul 2009 16:25:23 +0000 (18:25 +0200)
committerVincent Pit <vince@profvince.com>
Wed, 15 Jul 2009 16:25:23 +0000 (18:25 +0200)
indirect.xs

index 8e6c789b1b0098315650bf8b05193aac0eb0c77e..0b8de4df0d0715c790aacb254f39b301eb7958a9 100644 (file)
@@ -348,7 +348,7 @@ STATIC SV *indirect_tag(pTHX_ SV *value) {
 
  if (SvOK(value) && SvROK(value)) {
   value = SvRV(value);
-  SvREFCNT_inc(value);
+  SvREFCNT_inc_simple_NN(value);
   tag = PTR2UV(value);
  }