Unpack the factors returned by _miller_factor in is_super_psp and…

… `is_over_psp`.
trizen · Aug 28, 2020 · 89e542c · 89e542c
1 parent bb22a31
commit 89e542c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Sidef/Types/Number/Number.pm b/lib/Sidef/Types/Number/Number.pm
@@ -11372,7 +11372,7 @@ package Sidef::Types::Number::Number {
             return 1;
         };
 
-        my @factors = _miller_factor($z);
+        my @factors = map { ref($_) ? Math::GMPz::Rmpz_get_str($_, 10) : $_ } _miller_factor($z);
 
         if (scalar(@factors) > 1 and !Math::GMPz::Rmpz_fits_ulong_p($z)) {
 
@@ -11463,7 +11463,7 @@ package Sidef::Types::Number::Number {
             return 1;
         };
 
-        my @factors = _miller_factor($z);
+        my @factors = map { ref($_) ? Math::GMPz::Rmpz_get_str($_, 10) : $_ } _miller_factor($z);
 
         if (scalar(@factors) > 1 and !Math::GMPz::Rmpz_fits_ulong_p($z)) {