wrap at 78 columns rather than 76

metacpan · Oct 10, 2014 · 63d6022 · 63d6022
1 parent 3349382
commit 63d6022
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/lib/CPAN/Changes/Group.pm b/lib/CPAN/Changes/Group.pm
@@ -59,6 +59,7 @@ sub serialize {
       $output .= sprintf "  [ %s ]\n", $name if length $name;
       $indent .= '  ';
     }
+    local $Text::Wrap::columns = 78;
     $output .= Text::Wrap::wrap( "$indent- ", "$indent  ", $_ ) . "\n" for @{ $self->changes };
 
     return $output;

diff --git a/t/serialize.t b/t/serialize.t
@@ -90,8 +90,8 @@ EOCHANGES
 Revision history for perl module Foo::Bar
 
 0.01 2010-06-16
-  - Lorem ipsum dolor sit amet, consectetur adipiscing elit. In quis tortor
-    ac urna faucibus feugiat.
+  - Lorem ipsum dolor sit amet, consectetur adipiscing elit. In quis tortor ac
+    urna faucibus feugiat.
 EOCHANGES
 
     is( $changes->serialize, $expected, 'serialize with line-wrap' );