<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">difforig libwww-perl-6.38-5

diff -u  libwww-perl-6.38-5/t/base/protocols/nntp.t.orig
--- libwww-perl-6.38-5/t/base/protocols/nntp.t.orig	2019-05-05 07:41:39.000000000 +0200
+++ libwww-perl-6.38-5/t/base/protocols/nntp.t	2019-05-05 07:43:22.000000000 +0200
@@ -9,4 +9,4 @@
 my $ua = LWP::UserAgent-&gt;new;
 
 my $res = $ua-&gt;get('nntp://nntp.perl.org/blahblahblah@blahblahblah');
-is($res-&gt;code, 404, '404 on fake nntp url');
+like($res-&gt;code, qr/^(404|500)$/, $res-&gt;code." on fake nntp url");
</pre></body></html>