in reply to is_numeric from perlfaq4

It works if you use:

sub is_numeric { defined scalar getnum(@_) }

In Section Seekers of Perl Wisdom