X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-base.t;h=39eff2314932c2248bd05af4c1b8f8906abfebee;hb=e8b06a5663a989f54c31b85081660ea48f24d495;hp=01ca3ac9cd7358869cbde33b85e2b9c29c7ab716;hpb=fff2b130bbe5c6293252b43d93535419e682e7bf;p=perl%2Fmodules%2FAcme-CPANAuthors-You-re_using.git

diff --git a/t/10-base.t b/t/10-base.t
index 01ca3ac..39eff23 100644
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -8,7 +8,13 @@ use Test::More;
 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");
 };