「YAML::Syck とアンカー・エイリアス 解決編」のパッチを試した

dayflowerさんがYAML::Syckとアンカー・エイリアスの問題を解決するパッチを書かれていたので早速テストしたのですが、ActivePerl 5.8.7.815環境だと SvRV_set が未定義と言って怒られるので、perl_common.hのどこかに

#ifndef SvRV_set
#define SvRV_set(sv, val) \
        STMT_START { \
                (((XRV*)SvANY(sv))->xrv_rv = (val)); } STMT_END
#endif

というのを入れておいていただけるとうれしいです(テスト結果はOKです。GJ!)。

＃最新のではSvRV_setの内容が少し変わっているのですが、そちらを単体でコピーしてもうまくいかなかったので5.8.8のをコピーしてあります。

ちなみに厳しいテストということであればTest::YAML::Validというのを試してみるとよいかも。