#!/usr/bin/perl -w

use Inline C => <<'END_C';

void num_test(SV* sv) {

    sv_2nv(sv);
    //sv_2iv(sv);

    do_sv_dump(0, Perl_debug_log, sv, 0, 0, 0, 0);   // like Devel::Peek
}

END_C

num_test('aa');
num_test('123');
num_test('123aa');
num_test('aa123');
num_test('1.23');

##</code><code>##

Argument "aa" isn't numeric in subroutine entry at ./809635.pl line 15.
SV = PVNV(0x669cf0) at 0x65ed30
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,POK,READONLY,pNOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x665880 "aa"\0
  CUR = 2
  LEN = 8
SV = PVNV(0x7d8540) at 0x65ecb0
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,POK,READONLY,pNOK,pPOK)
  IV = 0
  NV = 123
  PV = 0x644a50 "123"\0
  CUR = 3
  LEN = 8
Argument "123aa" isn't numeric in subroutine entry at ./809635.pl line 17.
SV = PVNV(0x7d85e0) at 0x65ecd0
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,POK,READONLY,pNOK,pPOK)
  IV = 0
  NV = 123
  PV = 0x644be0 "123aa"\0
  CUR = 5
  LEN = 8
Argument "aa123" isn't numeric in subroutine entry at ./809635.pl line 18.
SV = PVNV(0x7d8608) at 0x65ed20
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,POK,READONLY,pNOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x644cb0 "aa123"\0
  CUR = 5
  LEN = 8
SV = PVNV(0x840a58) at 0x65ed00
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,POK,READONLY,pNOK,pPOK)
  IV = 0
  NV = 1.23
  PV = 0x665710 "1.23"\0
  CUR = 4
  LEN = 8

##</code><code>##

Argument "aa" isn't numeric in subroutine entry at ./809635.pl line 15.
SV = PVNV(0x669cf0) at 0x65ed30
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,IOK,NOK,POK,READONLY,pIOK,pNOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x665880 "aa"\0
  CUR = 2
  LEN = 8
SV = PVIV(0x63e130) at 0x65ecb0
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,IOK,POK,READONLY,pIOK,pPOK)
  IV = 123
  PV = 0x644a50 "123"\0
  CUR = 3
  LEN = 8
Argument "123aa" isn't numeric in subroutine entry at ./809635.pl line 17.
SV = PVNV(0x7d8540) at 0x65ecd0
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,IOK,NOK,POK,READONLY,pIOK,pNOK,pPOK)
  IV = 123
  NV = 123
  PV = 0x644be0 "123aa"\0
  CUR = 5
  LEN = 8
Argument "aa123" isn't numeric in subroutine entry at ./809635.pl line 18.
SV = PVNV(0x7d85e0) at 0x65ed20
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,IOK,NOK,POK,READONLY,pIOK,pNOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x644cb0 "aa123"\0
  CUR = 5
  LEN = 8
SV = PVNV(0x7d8608) at 0x65ed00
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,POK,READONLY,pIOK,pNOK,pPOK)
  IV = 1
  NV = 1.23
  PV = 0x665710 "1.23"\0
  CUR = 4
  LEN = 8