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