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

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");
 };