This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade Math::BigInt from version 1.93 to 1.95
[perl5.git] / dist / Math-BigInt / lib / Math / BigInt.pm
index 08c1632..b673bf1 100644 (file)
@@ -18,7 +18,7 @@ package Math::BigInt;
 my $class = "Math::BigInt";
 use 5.006002;
 
-$VERSION = '1.93';
+$VERSION = '1.95';
 
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(objectify bgcd blcm); 
@@ -1260,7 +1260,7 @@ sub blog
   # objectify is costly, so avoid it
   if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
     {
-    ($self,$x,$base,@r) = objectify(1,ref($x),@_);
+    ($self,$x,$base,@r) = objectify(2,@_);
     }
 
   return $x if $x->modify('blog');