diff options
| -rw-r--r-- | lib/Math/BigInt.pm | 6 | ||||
| -rw-r--r-- | lib/Math/BigInt/t/bigfltpm.inc | 2 | ||||
| -rw-r--r-- | lib/Math/BigInt/t/bigintpm.inc | 2 | ||||
| -rw-r--r-- | lib/Math/BigInt/t/calling.t | 2 | ||||
| -rw-r--r-- | lib/Math/BigInt/t/mbimbf.inc | 2 | ||||
| -rw-r--r-- | lib/Math/BigInt/t/upgrade.inc | 2 |
6 files changed, 11 insertions, 5 deletions
diff --git a/lib/Math/BigInt.pm b/lib/Math/BigInt.pm index 82da5f3390..84af8722a2 100644 --- a/lib/Math/BigInt.pm +++ b/lib/Math/BigInt.pm @@ -3796,6 +3796,12 @@ This method was added in v1.87 of Math::BigInt (June 2007). $x->bsqrt(); # calculate square-root +=head2 broot() + + $x->broot($N); + +Calculates the N'th root of C<$x>. + =head2 bfac() $x->bfac(); # factorial of $x (1*2*3*4*..$x) diff --git a/lib/Math/BigInt/t/bigfltpm.inc b/lib/Math/BigInt/t/bigfltpm.inc index 60b5cd2c16..4aa022cbe7 100644 --- a/lib/Math/BigInt/t/bigfltpm.inc +++ b/lib/Math/BigInt/t/bigfltpm.inc @@ -8,7 +8,7 @@ my $z; while (<DATA>) { - chomp; + $_ =~ s/[\n\r]//g; # remove newlines $_ =~ s/#.*$//; # remove comments $_ =~ s/\s+$//; # trailing spaces next if /^$/; # skip empty lines & comments diff --git a/lib/Math/BigInt/t/bigintpm.inc b/lib/Math/BigInt/t/bigintpm.inc index f9481563f6..87f31eb117 100644 --- a/lib/Math/BigInt/t/bigintpm.inc +++ b/lib/Math/BigInt/t/bigintpm.inc @@ -42,7 +42,7 @@ my ($f,$z,$a,$exp,@a,$m,$e,$round_mode,$expected_class); while (<DATA>) { - chomp; + $_ =~ s/[\n\r]//g; # remove newlines next if /^#/; # skip comments if (s/^&//) { diff --git a/lib/Math/BigInt/t/calling.t b/lib/Math/BigInt/t/calling.t index d113d4e8c4..3fee915a6e 100644 --- a/lib/Math/BigInt/t/calling.t +++ b/lib/Math/BigInt/t/calling.t @@ -69,7 +69,7 @@ my $version = '1.76'; # adjust manually to match latest release my ($func,@args,$ans,$rc,$class,$try); while (<DATA>) { - chomp; + $_ =~ s/[\n\r]//g; # remove newlines next if /^#/; # skip comments if (s/^&//) { diff --git a/lib/Math/BigInt/t/mbimbf.inc b/lib/Math/BigInt/t/mbimbf.inc index a5ea3f623c..b057eee3ec 100644 --- a/lib/Math/BigInt/t/mbimbf.inc +++ b/lib/Math/BigInt/t/mbimbf.inc @@ -782,7 +782,7 @@ my ($ans1,$f,$a,$p,$xp,$yp,$xa,$ya,$try,$ans,@args); my $CALC = Math::BigInt->config()->{lib}; while (<DATA>) { - chomp; + $_ =~ s/[\n\r]//g; # remove newlines next if /^\s*(#|$)/; # skip comments and empty lines if (s/^&//) { diff --git a/lib/Math/BigInt/t/upgrade.inc b/lib/Math/BigInt/t/upgrade.inc index 3aa42efff9..49eb0e943f 100644 --- a/lib/Math/BigInt/t/upgrade.inc +++ b/lib/Math/BigInt/t/upgrade.inc @@ -52,7 +52,7 @@ my ($f,$z,$a,$exp,@a,$m,$e,$round_mode,$expected_class); while (<DATA>) { - chomp; + $_ =~ s/[\n\r]//g; # remove newlines next if /^#/; # skip comments if (s/^&//) { |