Perl日記

日々の知ったことのメモなどです。Perlは最近やってないです。

2010-04-07から1日間の記事一覧

続・XSのlooks_like_number()

前回の続き。 ListUtil.xs #if (PERL_VERSION < 8) || (PERL_VERSION == 8 && PERL_SUBVERSION <5) if (SvPOK(sv) || SvPOKp(sv)) { RETVAL = looks_like_number(sv); } else { RETVAL = SvFLAGS(sv) & (SVf_NOK|SVp_NOK|SVf_IOK|SVp_IOK); } #else RETVAL =…