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

[perl5.git] / t / porting / diag.t

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) {