2 # Tests that the standard Perl 5 functions that we override
3 # that operate on the $_ will work correctly [perl #62412]
8 my @f = qw(abs cos exp log sin sqrt);
10 plan tests => scalar @f;
20 $CORE{$f} = eval "CORE::$f";
25 is(eval "Math::Complex::$f", $CORE{$f}, $f);