@@ -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;
}