Rebreak lines to achieve <80 recommended line length.

Inspired by Nicolas Herry's patches in RT #121820.

diff --git a/dist/Math-BigRat/lib/Math/BigRat.pm b/dist/Math-BigRat/lib/Math/BigRat.pm
index e3c7b47..7f5b867 100644 (file)
--- a/dist/Math-BigRat/lib/Math/BigRat.pm
+++ b/dist/Math-BigRat/lib/Math/BigRat.pm
@@ -24,7 +24,7 @@ use vars qw($VERSION @ISA $upgrade $downgrade
 
 @ISA = qw(Math::BigFloat);
 
-$VERSION = '0.2607';
+$VERSION = '0.2608';
 $VERSION = eval $VERSION;
 
 # inherit overload from Math::BigFloat, but disable the bitwise ops that don't
@@ -403,11 +403,13 @@ sub bnorm
   # Both parts must be objects of whatever we are using today.
   if ( my $c = $MBI->_check($x->{_n}) )
     {
-    require Carp; Carp::croak ("n did not pass the self-check ($c) in bnorm()");
+    require Carp; Carp::croak(
+        "n did not pass the self-check ($c) in bnorm()");
     }
   if ( my $c = $MBI->_check($x->{_d}) )
     {
-    require Carp; Carp::croak ("d did not pass the self-check ($c) in bnorm()");
+    require Carp; Carp::croak(
+        "d did not pass the self-check ($c) in bnorm()");
     }
 
   # no normalize for NaN, inf etc.
@@ -447,7 +449,8 @@ sub bneg
   return $x if $x->modify('bneg');
 
   # for +0 do not negate (to have always normalized +0). Does nothing for 'NaN'
-  $x->{sign} =~ tr/+-/-+/ unless ($x->{sign} eq '+' && $MBI->_is_zero($x->{_n}));
+  $x->{sign} =~ tr/+-/-+/
+    unless ($x->{sign} eq '+' && $MBI->_is_zero($x->{_n}));
   $x;
   }
 
@@ -1079,8 +1082,10 @@ sub bexp
   if ($scale <= 75)
     {
     # set $x directly from a cached string form
-    $x->{_n} = $MBI->_new("90933395208605785401971970164779391644753259799242");
-    $x->{_d} = $MBI->_new("33452526613163807108170062053440751665152000000000");
+    $x->{_n} =
+        $MBI->_new("90933395208605785401971970164779391644753259799242");
+    $x->{_d} =
+        $MBI->_new("33452526613163807108170062053440751665152000000000");
     $x->{sign} = '+';
     }
   else

diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat
index cd025d3..aae93e9 100644 (file)
--- a/t/porting/known_pod_issues.dat
+++ b/t/porting/known_pod_issues.dat
@@ -209,7 +209,6 @@ YAML
 YAML::Syck
 YAML::Tiny
 dist/data-dumper/dumper.pm     ? Should you be using L<...> instead of 1
-dist/math-bigrat/lib/math/bigrat.pm    Verbatim line length including indents exceeds 79 by    7
 dist/module-corelist/lib/module/corelist.pod   Verbatim line length including indents exceeds 79 by    4
 dist/module-corelist/lib/module/corelist/utils.pm      Verbatim line length including indents exceeds 79 by    2
 dist/selfloader/lib/selfloader.pm      Verbatim line length including indents exceeds 79 by    13