Only make fatal warnings that are reported while Acme::CPANAuthors requires our extension

diff --git a/t/10-base.t b/t/10-base.t
index 01ca3ac9cd7358869cbde33b85e2b9c29c7ab716..39eff2314932c2248bd05af4c1b8f8906abfebee 100644 (file)
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -8,7 +8,13 @@ use Test::More;
 use Acme::CPANAuthors;
 
 my $authors = eval {
 use Acme::CPANAuthors;
 
 my $authors = eval {

- local $SIG{__WARN__} = sub { die @_ };
+ local $SIG{__WARN__} = sub {
+  my ($msg) = @_;
+  if ($msg =~ /^You're_using CPAN Authors are not registered yet: (.*)/s) {
+   die $1;
+  }
+  CORE::warn(@_);
+ };

  Acme::CPANAuthors->new("You're_using");
 };
 
  Acme::CPANAuthors->new("You're_using");
 };