From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 20 Dec 2007 20:43:16 +0000 (+0000)
Subject: With change 32676 moving the HvSHAREKEYS_on() into Perl_sv_upgrade()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e50442680d33320e3fd67b1adf0559812a28c98e;p=p5sagit%2Fp5-mst-13.2.git

With change 32676 moving the HvSHAREKEYS_on() into Perl_sv_upgrade()
calls to it can be eliminated from the version code.

p4raw-id: //depot/perl@32678
---

diff --git a/util.c b/util.c
index 62fd7ba..173e5d7 100644
--- a/util.c
+++ b/util.c
@@ -4176,10 +4176,6 @@ Perl_scan_version(pTHX_ const char *s, SV *rv, bool qv)
     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 @@ Perl_new_version(pTHX_ SV *ver)
 	/* 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);