The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Changes 05
META.json 22
META.yml 22
lib/CPAN/Changes/Group.pm 62
lib/CPAN/Changes.pm 11
lib/Test/CPAN/Changes.pm 11
t/dist-zilla-changes.t 11
t/serialize.t 1414
t/sort_groups.t 11
9 files changed (This is a version diff) 2829
@@ -1,5 +1,10 @@
 Revision history for perl module CPAN::Changes
 
+0.400002 - 2015-06-21
+  - revert whitespace changes that were inadvertantly included in previous
+    release.
+  - escape curly brackets in test to avoid warning in perl 5.22
+
 0.400001 - 2015-05-23
   - accept either UTF-8 or ISO-8859-1 files and decode them
   - only treat bracketed text if it is on its own line with no other brackets
@@ -4,7 +4,7 @@
       "Brian Cassidy <bricas@cpan.org>"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240",
+   "generated_by" : "ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter version 2.150001",
    "license" : [
       "perl_5"
    ],
@@ -60,6 +60,6 @@
       },
       "x_IRC" : "irc://irc.perl.org/#metacpan"
    },
-   "version" : "0.400001",
+   "version" : "0.400002",
    "x_authority" : "cpan:BRICAS"
 }
@@ -7,7 +7,7 @@ build_requires:
 configure_requires:
   ExtUtils::MakeMaker: '0'
 dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240'
+generated_by: 'ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter version 2.150001'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -25,5 +25,5 @@ resources:
   bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=CPAN-Changes
   license: http://dev.perl.org/licenses/
   repository: https://github.com/CPAN-API/CPAN-Changes.git
-version: '0.400001'
+version: '0.400002'
 x_authority: cpan:BRICAS
@@ -54,16 +54,12 @@ sub serialize {
 
     my $output = '';
     my $name = $self->name;
-    my $indent = '  ';
-    if (length $name) {
-      $output .= sprintf "  [ %s ]\n", $name if length $name;
-      $indent .= '  ';
-    }
+    $output .= sprintf " [%s]\n", $name if length $name;
     # change logs commonly have long URLs we shouldn't break, and by default
     # Text::Wrap wraps on NONBREAKING SPACE.
     local $Text::Wrap::break = '[\t ]';
     local $Text::Wrap::huge = 'overflow';
-    $output .= Text::Wrap::wrap( "$indent- ", "$indent  ", $_ ) . "\n" for @{ $self->changes };
+    $output .= Text::Wrap::wrap( ' - ', '   ', $_ ) . "\n" for @{ $self->changes };
 
     return $output;
 }
@@ -8,7 +8,7 @@ use Scalar::Util ();
 use version      ();
 use Encode qw(decode FB_CROAK LEAVE_SRC);
 
-our $VERSION = '0.400001';
+our $VERSION = '0.400002';
 
 # From DateTime::Format::W3CDTF
 our $W3CDTF_REGEX = qr{(\d\d\d\d) # Year
@@ -7,7 +7,7 @@ use CPAN::Changes;
 use Test::Builder;
 use version ();
 
-our $VERSION = '0.400001';
+our $VERSION = '0.400002';
 
 my $Test     = Test::Builder->new;
 
@@ -6,7 +6,7 @@ use Test::More;
 use CPAN::Changes;
 
 my $changes = CPAN::Changes->load( 't/corpus/dist-zilla.changes',
-    next_token => qr/{{\$NEXT}}/);
+    next_token => qr/\{\{\$NEXT\}\}/);
 
 isa_ok( $changes, 'CPAN::Changes' );
 is( $changes->preamble, 'Revision history for Catalyst-Plugin-Sitemap',
@@ -16,7 +16,7 @@ $changes->add_release(
 {
     my $expected = <<EOCHANGES;
 0.01 2010-06-16
-  - Initial release
+ - Initial release
 EOCHANGES
 
     is( $changes->serialize, $expected, 'serialize' );
@@ -29,7 +29,7 @@ EOCHANGES
 Revision history for perl module Foo::Bar
 
 0.01 2010-06-16
-  - Initial release
+ - Initial release
 EOCHANGES
 
     is( $changes->serialize, $expected, 'serialize with preamble' );
@@ -44,8 +44,8 @@ EOCHANGES
 Revision history for perl module Foo::Bar
 
 0.01 2010-06-16
-  [ Group 1 ]
-    - Initial release
+ [Group 1]
+ - Initial release
 EOCHANGES
 
     is( $changes->serialize, $expected,
@@ -64,11 +64,11 @@ EOCHANGES
 Revision history for perl module Foo::Bar
 
 0.02 2010-06-17
-  - New version
+ - New version
 
 0.01 2010-06-16
-  [ Group 1 ]
-    - Initial release
+ [Group 1]
+ - Initial release
 EOCHANGES
 
     is( $changes->serialize, $expected, 'serialize with multiple releases' );
@@ -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' );
@@ -114,7 +114,7 @@ EOCHANGES
 Revision history for perl module Foo::Bar
 
 0.01 2010-06-16 Note
-  - Test
+ - Test
 EOCHANGES
 
     is( $changes->serialize, $expected, 'serialize with note' );
@@ -137,7 +137,7 @@ EOCHANGES
 Revision history for perl module Foo::Bar
 
 0.01 Unknown (Oops)
-  - Test
+ - Test
 EOCHANGES
 
     is( $changes->serialize, $expected, 'serialize with unknown date and note' );
@@ -154,7 +154,7 @@ EOCHANGES
     );
     my $expected = <<EOCHANGES;
 0.01
-  - Initial release
+ - Initial release
 EOCHANGES
 
     is( $changes->serialize, $expected, 'serialize w/ defined but empty date and note' );
@@ -174,8 +174,8 @@ EOCHANGES
     );
     my $expected = <<EOCHANGES;
 0.01
-  - http://www.cpan.org/abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz
-  - \x{026B}this_entry_should_not_be_wrapped_on_the_nonbreaking_space\x{00A0}in_it_even_though_it_is_over_80_characters_long
+ - http://www.cpan.org/abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz
+ - \x{026B}this_entry_should_not_be_wrapped_on_the_nonbreaking_space\x{00A0}in_it_even_though_it_is_over_80_characters_long
 EOCHANGES
 
     is( $changes->serialize, $expected, 'serialize does not wrap long tokens or split on nbsp' );
@@ -34,7 +34,7 @@ sub reverse_order {
 
 sub expected_order {
     my @groups = @_;
-    my $re = join '.*', map { "\\[\\s*$_\\s*\\]" } @groups;
+    my $re = join '.*', map { "\\[$_\\]" } @groups;
     return qr/$re/s;
 }