Try without line ending

pgxn · Feb 17, 2024 · 1ba88cc · 1ba88cc
1 parent 0f1481b
commit 1ba88cc
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/lib/WWW/PGXN.pm b/lib/WWW/PGXN.pm
@@ -104,7 +104,7 @@ sub spec {
     my $res = $self->_fetch(
         $self->_url_for('spec' => { format => $format })
     ) or return;
-    utf8::decode $res->{content} or croak "utf8::decode failed";
+    utf8::decode $res->{content};
     return $res->{content};
 }
 

diff --git a/t/base.t b/t/base.t
@@ -146,9 +146,9 @@ is $pgxn->html_doc_path_for('pair', '0.1.2', 'doc/foo'),
 ##############################################################################
 # Test spec fetching.
 ok my $spec = $pgxn->spec, 'Get spec';
-like $spec, qr{PGXN Meta Spec - The PGXN distribution metadatå specification$}m,
+like $spec, qr{PGXN Meta Spec - The PGXN distribution metadatå specification}m,
     'It should look like the text file';
-use Data::Dump; ddx $spec; ddx qr{PGXN Meta Spec - The PGXN distribution metadatå specification$}m;
+# use Data::Dump; ddx $spec; ddx qr{PGXN Meta Spec - The PGXN distribution metadatå specification$}m;
 # ok $spec = $pgxn->spec('txt'), 'Get text spec';
 # like $spec, qr{PGXN Meta Spec - The PGXN distribution metadatå specification$}m,
 #     'It should look like the text file';