From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 26 Dec 2005 12:48:10 +0000 (+0000)
Subject: The values for proxy constant subroutines need to be read only.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=abe8a887caa63fd7e57355cf256e4fa84a0c0dc3;p=p5sagit%2Fp5-mst-13.2.git

The values for proxy constant subroutines need to be read only.

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

diff --git a/lib/ExtUtils/Constant/ProxySubs.pm b/lib/ExtUtils/Constant/ProxySubs.pm
index d630c01..d8a7c2a 100644
--- a/lib/ExtUtils/Constant/ProxySubs.pm
+++ b/lib/ExtUtils/Constant/ProxySubs.pm
@@ -201,6 +201,7 @@ void ${c_subname}_add_symbol($pthx HV *hash, const char *name, I32 namelen, SV *
 	SvUPGRADE(*sv, SVt_RV);
 	SvRV_set(*sv, value);
 	SvROK_on(*sv);
+	SvREADONLY_on(value);
     }
 }