This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #85482] Make bmuladd() able to handle third arg properly.
[perl5.git] / dist / Math-BigInt / lib / Math / BigInt.pm
index e806a75..bb1f518 100644 (file)
@@ -1573,12 +1573,7 @@ sub bmuladd
   # (BINT or num_str, BINT or num_str, BINT or num_str) return BINT
 
   # set up parameters
-  my ($self,$x,$y,$z,@r) = (ref($_[0]),@_);
-  # objectify is costly, so avoid it
-  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
-    {
-    ($self,$x,$y,$z,@r) = objectify(3,@_);
-    }
+  my ($self,$x,$y,$z,@r) = objectify(3,@_);
 
   return $x if $x->modify('bmuladd');