Select Code to Download

sub isNumber
{
...
  local $SIG{__WARN__} = sub { $R = 0; };
  return ($_[0] < 0) ? $R : $R;
}

use strict;
use warnings;
...
#     expected: 1
1..2
# Looks like you failed 2 tests of 2.