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 (file)
--- 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);
     }
 }