2008年06月27日14:45 カテゴリLightweight Languages perl - Const.pm is unauthorized まずは舌足らずをお詫び。 YappoLogs: Internals::SvREADONLY danさんの ただし、これではscalarしかflagをいじれません。というわけで、同様のことをXSでやるようにするモジュールを書いたというわけです。 これは間違いでARRAYもHASHも弄れます。 これは、s/scalar/PV一つ/gですね。 どういうことかというと、PVAVとしてのarray, PVHVとしてのhashはread-onlyに出来ても、その中身は違うということ。 % perl -MDevel::Peek -le '@a=(1,2);Internals::SvREADONLY(@a,1);Dump \@a' SV = RV(0x180