Package list libcryptx-perl / 171a485
HACK: needed for MBI 1.999715 compatibility Karel Miko 2 years ago
1 changed file(s) with 8 addition(s) and 4 deletion(s). Raw diff Collapse all Expand all
330330 0 + $class -> _str($x);
331331 }
332332
333 ### same as _fac() in Math::BigInt::Lib
333 ### PATCHED _fac() from Math::BigInt::Lib
334334 sub _fac {
335335 # factorial
336336 my ($class, $x) = @_;
338338 my $two = $class -> _two();
339339
340340 if ($class -> _acmp($x, $two) < 0) {
341 return $class -> _one();
341 ###HACK: needed for MBI 1.999715 compatibility
342 ###return $class -> _one();
343 $class->_set($x, 1); return $x
342344 }
343345
344346 my $i = $class -> _copy($x);
350352 return $x;
351353 }
352354
353 ### same as _dfac() in Math::BigInt::Lib
355 ### PATCHED _dfac() from Math::BigInt::Lib
354356 sub _dfac {
355357 # double factorial
356358 my ($class, $x) = @_;
358360 my $two = $class -> _two();
359361
360362 if ($class -> _acmp($x, $two) < 0) {
361 return $class -> _one();
363 ###HACK: needed for MBI 1.999715 compatibility
364 ###return $class -> _one();
365 $class->_set($x, 1); return $x
362366 }
363367
364368 my $i = $class -> _copy($x);