r24705: Avoid undefined value warnings.

diff --git a/source/selftest/output/html.pm b/source/selftest/output/html.pm
index a88788fd1473ecb861a3023632d5ebefe3c11ac2..156b5b98c7e212749883694b3f8d649de75dd6ea 100644 (file)
--- a/source/selftest/output/html.pm
+++ b/source/selftest/output/html.pm
@@ -283,7 +283,11 @@ sub summary($)
                        print SUMMARY "<tr>\n";
                        print SUMMARY "  <td><a href=\"" . $$_[0] . "\">$$_[2]</a></td>\n";
                        print SUMMARY "  <td><a href=\"" . $$_[0] . "#$$_[1]\">$$_[1]</a></td>\n";
-                       print SUMMARY "  <td>$$_[3]</td>\n";
+                       if (defined($$_[3])) {
+                               print SUMMARY "  <td>$$_[3]</td>\n";
+                       } else {
+                               print SUMMARY "  <td></td>\n";
+                       }
                        print SUMMARY "</tr>\n";
                }