t/nntpd.t | 6 +++--- diff --git a/t/nntpd.t b/t/nntpd.t index 2d7280a50d5e8a466c9a36649a916c8603aa293a..5a3a62fbec9c7c13e273d0ee37c2723759fad11c 100644 --- a/t/nntpd.t +++ b/t/nntpd.t @@ -329,12 +329,12 @@ } $n = $s = undef; $td->join; - my $eout = eval { - local $/; + is($?, 0, 'no error in exited process'); + my $eout = do { open my $fh, '<', $err or die "open $err failed: $!"; + local $/; <$fh>; }; - is($?, 0, 'no error in exited process'); unlike($eout, qr/wide/i, 'no Wide character warnings'); }