Change 34360 by [EMAIL PROTECTED] on 2008/09/13 22:17:33
In Perl_pad_add_name(), tidy up some slightly code that became
suboptimally pretty as a result of various merges.
(No less (dis)functional).
Affected files ...
... //depot/maint-5.8/perl/pad.c#68 edit
Differences ...
==== //depot/maint-5.8/perl/pad.c#68 (text) ====
Index: perl/pad.c
--- perl/pad.c#67~30927~ 2007-04-12 08:03:57.000000000 -0700
+++ perl/pad.c 2008-09-13 15:17:33.000000000 -0700
@@ -358,8 +358,8 @@
}
if (ourstash) {
SvPAD_OUR_on(namesv);
- (HV*)SvREFCNT_inc_simple_NN((SV*) ourstash);
SvOURSTASH_set(namesv, ourstash);
+ SvREFCNT_inc_simple_void_NN(ourstash);
}
av_store(PL_comppad_name, offset, namesv);
End of Patch.
