read files as :raw in tests

metacpan · May 2, 2024 · 8bc5f10 · 8bc5f10
1 parent 3c9df7e
commit 8bc5f10
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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>;