From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 21 Jan 2007 23:11:30 +0000 (+0000)
Subject: Restore the const to vtbl in Perl_mg_localize() removed in change
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b1b43eab3a253674c13d1ea253f3b0a85b45a0d;p=p5sagit%2Fp5-mst-13.2.git

Restore the const to vtbl in Perl_mg_localize() removed in change
26924.

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

diff --git a/mg.c b/mg.c
index 86f0e12..a3e0f26 100644
--- a/mg.c
+++ b/mg.c
@@ -413,7 +413,7 @@ Perl_mg_localize(pTHX_ SV *sv, SV *nsv)
     dVAR;
     MAGIC *mg;
     for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) {
-	MGVTBL* const vtbl = mg->mg_virtual;
+	const MGVTBL* const vtbl = mg->mg_virtual;
 	switch (mg->mg_type) {
 	/* value magic types: don't copy */
 	case PERL_MAGIC_bm: