Allow diag.t to pass tests for multi-line warnings.

It's been sending the full warning text to t/test.pl's pass()
function.  If there are newlines in the the warning, t/TEST (though
not t/harness) will spew "Unexpected output at ..." messages and
fail the test.  In this context, the warning is just a message
printed by the test infrastructure, so we might as well use the
version of the warning that's already had newlines replaced with
spaces.

diff --git a/t/porting/diag.t b/t/porting/diag.t
index ff0e3b2..58bed95 100644 (file)
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -324,7 +324,7 @@ sub check_message {
         }
       } else {
         # We found an actual valid entry in perldiag.pod for this error.
-        pass($name);
+        pass($key);
       }
       # Later, should start checking that the severity is correct, too.
     } elsif ($partial) {