In t/10-base.t, reprint extra warnings as diagnostics

diff --git a/t/10-base.t b/t/10-base.t
index c3899ce28c8983177902fd251aefa095e2037999..72e2bd88caaa110805050ce7a000c20fb3bd10d0 100644 (file)
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -18,7 +18,7 @@ my $authors = eval {
   if ($msg =~ /^You're_using CPAN Authors are not registered yet: (.*)/s) {
    die $1;
   }
-  CORE::warn(@_);
+  diag $_ for @_;
  };
  Acme::CPANAuthors->new("You're_using");
 };