fix warning in test.pl diagnostics output.

2f137bbd018b assumed that $name is always defined, but it isn't
always, and when it's not the resulting undefined value warning
could corrupt test output and even make TODO tests trigger failure
with "unexpected output at test 0."

1 files changed, 4 insertions, 1 deletions

diff --git a/t/test.pl b/t/test.pl
index 604cdda80f..b33c634fef 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -210,7 +210,10 @@ sub _ok {
 	note @mess; # Ensure that the message is properly escaped.
     }
     else {
-        _diag "# Failed test $test - $name $where\n";
+	my $msg = "# Failed test $test - ";
+	$msg.= "$name " if $name;
+	$msg .= "$where\n";
+	_diag $msg;
 	_diag @mess;
     }