t/*.t: localize $SIG{__WARN__} changes

We don't want to propagate %SIG changes to other tests when
running multiple tests within the same process via t/run.perl.

1 files changed, 1 insertions, 1 deletions

diff --git a/t/nntpd.t b/t/nntpd.t
index 43b14d66..826e3f3d 100644
--- a/t/nntpd.t
+++ b/t/nntpd.t
@@ -268,7 +268,7 @@ Date: Fri, 02 Oct 1993 00:00:00 +0000
                         $for_leafnode->header_set('Message-ID', @mids);
                         $for_leafnode->body_set('not-a-dupe');
                         my $warn = '';
-                        $SIG{__WARN__} = sub { $warn .= join('', @_) };
+                        local $SIG{__WARN__} = sub { $warn .= join('', @_) };
                         $im->add($for_leafnode);
                         $im->done;
                         like($warn, qr/reused/, 'warned for reused MID');