<div dir="ltr">Ну и поделитесь, где еще засады )</div><div class="gmail_extra"><br><div class="gmail_quote">27 ноября 2014 г., 2:13 пользователь Sergey Aleynikov <span dir="ltr"><<a href="mailto:sergey.aleynikov@gmail.com" target="_blank">sergey.aleynikov@gmail.com</a>></span> написал:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Добрый день,<br>
<br>
Что именно и когда ответит Леман - непредсказуемо) Я нашел, как<br>
минимум, еще два  места, где модулю сносит стек. Прислать патч, или<br>
попробуете сначала с ним списаться?<br>
<br>
Best regards,<br>
Sergey Aleynikov<br>
<span class="im HOEnZb"><br>
<br>
2014-11-26 20:01 GMT+03:00 Вадим Власов <<a href="mailto:scripter.vrn@gmail.com">scripter.vrn@gmail.com</a>>:<br>
</span><div class="HOEnZb"><div class="h5">> Исследуя новый сериализатор в JSON::XS наткнулся:<br>
><br>
> $ echo 'use strict;<br>
> use warnings;<br>
> use feature "say";<br>
><br>
> use JSON::XS;<br>
> my $j=JSON::XS->new->allow_tags;<br>
><br>
> say "JSON::XS: $JSON::XS::VERSION";<br>
> say "Types::Serialiser: $Types::Serialiser::VERSION";<br>
><br>
> my $t = $j->encode( Foo->new );<br>
> say $t;<br>
><br>
> my @t = $j->encode( Foo->new );<br>
><br>
> package Foo;<br>
> sub new { bless {}, $_[0]; }<br>
> sub FREEZE { ( 123, 456 ); }' | perl<br>
> JSON::XS: 3.01<br>
> Types::Serialiser: 1.0<br>
> ("Foo")[123,456]<br>
> panic: attempt to copy freed scalar c37a18 to c37a00 at - line 14.<br>
><br>
> $ perl -MJSON::XS -wE 'say JSON::XS->new->allow_tags->encode( bless {}, Foo<br>
> ); package Foo; sub FREEZE{ return 123 }'<br>
> Use of uninitialized value in say at -e line 1.<br>
> ("Foo")[123]<br>
><br>
> $ perl -MJSON::XS -wE 'say scalar( JSON::XS->new->allow_tags->encode( bless<br>
> {}, Foo )); package Foo; sub FREEZE{ return 123 }'<br>
> ("Foo")[123]<br>
><br>
> Проверили на разных машинах и на разных версиях perl-а - одно и то же.<br>
><br>
> --<br>
>   С уважением,<br>
>   Вадим Власов<br>
>   т.: +7 (916) 424-00-72<br>
><br>
</div></div><div class="HOEnZb"><div class="h5">> --<br>
> Moscow.pm mailing list<br>
> <a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
><br>
--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div>  С уважением,<br></div><div>  Вадим Власов</div><div>  т.: +7 (916) 424-00-72</div></div></div>
</div>