The Im() function wasn't returning zero for non-Math::Complex

arguments.  The bug reported by John Gamble.

p4raw-id: //depot/perl@8722

diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm
index 066e366..fb6af8c 100644 (file)
--- a/lib/Math/Complex.pm
+++ b/lib/Math/Complex.pm
@@ -664,7 +664,7 @@ sub Re {
 #
 sub Im {
        my ($z, $Im) = @_;
-       return $z unless ref $z;
+       return 0 unless ref $z;
        if (defined $Im) {
            $z->{'cartesian'} = [ ${$z->cartesian}[0], $Im ];
            $z->{c_dirty} = 0;