Change 22528 by [EMAIL PROTECTED] on 2004/03/18 16:58:06
Corrections and explanations in comments
Affected files ...
... //depot/perl/ext/Storable/Storable.xs#83 edit
Differences ...
==== //depot/perl/ext/Storable/Storable.xs#83 (text) ====
Index: perl/ext/Storable/Storable.xs
--- perl/ext/Storable/Storable.xs#82~22516~ Wed Mar 17 08:10:57 2004
+++ perl/ext/Storable/Storable.xs Thu Mar 18 08:58:06 2004
@@ -2455,7 +2455,7 @@
* Require B::Deparse. At least B::Deparse 0.61 is needed for
* blessed code references.
*/
- /* XXX sv_2mortal seems to be evil here. why? */
+ /* Ownership of both SVs is passed to load_module, which frees them. */
load_module(PERL_LOADMOD_NOIMPORT, newSVpvn("B::Deparse",10), newSVnv(0.61));
ENTER;
@@ -3315,7 +3315,7 @@
*/
/* Need to jump past the next hv_store, because on the
second store of undef the old hash value will be
- SV_REFCNT_DEC()ed, and as Storable cheats horribly
+ SvREFCNT_dec()ed, and as Storable cheats horribly
by storing non-SVs in the hash a SEGV will ensure.
Need to increase the tag number so that the
receiver has no idea what games we're up to. This
End of Patch.
