From de5881cb3b9ffd4349986cb6653fc903ff737ada Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 3 Mar 2015 23:53:07 +0100
Subject: [PATCH] apl: omit title attribute if no description

---
 apl.plp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/apl.plp b/apl.plp
index 6fc7cad..478533f 100644
--- a/apl.plp
+++ b/apl.plp
@@ -51,8 +51,9 @@ for my $op (@ops) {
 		[defined $html ? 'l4' : $ascii ? 'l5' : 'l1', $html // "#$codepoint"],
 	);
 	printf(
-		defined $_ ? '<td title="%2$s">%s' : '<td class="Xi">',
-		map { EscapeHTML($_) } split /\n/, $_, 2
+		defined $_ ? '<td%s>%s' : '<td class=Xi>',
+		map { !!$_->[1] && qq( title="$_->[1]"), $_->[0] }
+		[map { EscapeHTML($_) } split /\n/, $_, 2]
 	) for $monad, $dyad;
 	print "\n";
 }
-- 
2.30.0