Select Code to Download

return 1
  if ( $] >= 5.008    and /^(Inf(inity)?|NaN)$/i ) 
  or ( $] >= 5.006001 and /^Inf$/i               );

sub looks_like_finite_number {
  my $candidate = shift;
...
    or ( $] >= 5.006001 and $candidate =~ /^Inf$/i );
  return 1;
}