Change 32678 by [EMAIL PROTECTED] on 2007/12/20 20:43:16
With change 32676 moving the HvSHAREKEYS_on() into Perl_sv_upgrade()
calls to it can be eliminated from the version code.
Affected files ...
... //depot/perl/util.c#638 edit
Differences ...
==== //depot/perl/util.c#638 (text) ====
Index: perl/util.c
--- perl/util.c#637~32241~ 2007-11-08 02:31:55.000000000 -0800
+++ perl/util.c 2007-12-20 12:43:16.000000000 -0800
@@ -4176,10 +4176,6 @@
SV * const hv = newSVrv(rv, "version"); /* create an SV and upgrade the RV
*/
(void)sv_upgrade(hv, SVt_PVHV); /* needs to be an HV type */
-#ifndef NODEFAULT_SHAREKEYS
- HvSHAREKEYS_on(hv); /* key-sharing on by default */
-#endif
-
while (isSPACE(*s)) /* leading whitespace is OK */
s++;
@@ -4386,9 +4382,6 @@
/* This will get reblessed later if a derived class*/
SV * const hv = newSVrv(rv, "version");
(void)sv_upgrade(hv, SVt_PVHV); /* needs to be an HV type */
-#ifndef NODEFAULT_SHAREKEYS
- HvSHAREKEYS_on(hv); /* key-sharing on by default */
-#endif
if ( SvROK(ver) )
ver = SvRV(ver);
End of Patch.
