[Moscow.pm] Perl XS: Как записать unsigned char* в SV*

[Nikita Aznauryan]

29.09.2010, 13:24, "Dmitry Karasik" <dmitry на karasik.eu.org>:
>>  (char*)ptr - разве так делать можно? То есть задача стоит так: в функцию
>>  приходит unsigned char* , эту строку нужно записать в хеш и отдать в перл.
>>  При этом насколько я понимаю (char*)ptr испортит строку. Разве нет??
>
> тайпкастинг в С между unsigned char* и char* недеструктивный
>
> --
> Sincerely,
> Dmitry Karasik
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org

Да,я понял. Значит нужно сделать так ? 

SV* sv = newSVpvn((char*)ptr, len);
SvUTF8_on(sv);