diff --git a/t/corpus.t b/t/corpus.t index a39469f..a6d1a63 100644 --- a/t/corpus.t +++ b/t/corpus.t @@ -40,7 +40,7 @@ my $parser = CPAN::Changes::Parser->new(version_like => qr/\{\{\s*\$NEXT\s*\}\}/ for my $log (@ARGV ? @ARGV : glob('corpus/dists/*.changes')) { my $content = do { - open my $fh, '<', $log + open my $fh, '<:raw', $log or die "can't read $log: $!"; local $/; <$fh>; diff --git a/t/raw.t b/t/raw.t index 3417ac7..5aeef01 100644 --- a/t/raw.t +++ b/t/raw.t @@ -22,7 +22,7 @@ my $parser = CPAN::Changes::Parser->new(version_like => qr/\{\{\s*\$NEXT\s*\}\}/ for my $log (@ARGV ? @ARGV : glob('corpus/dists/*.changes')) { my $content = do { - open my $fh, '<', $log + open my $fh, '<:raw', $log or die "can't read $log: $!"; local $/; <$fh>;