X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e0b04a79771db4a575b45c59502b856dffb8ae10..f963d7374bd53a3356f949ce280482aee6b53998:/perl.plp

diff --git a/perl.plp b/perl.plp
index f5d6f26..6bc3586 100644
--- a/perl.plp
+++ b/perl.plp
@@ -33,7 +33,11 @@ for my $vernum (reverse sort keys %{$info}) {
 			my $title = 'experimental';
 			my $class = ' class="ex"';
 			if (ref \$experimental eq 'VSTRING') {
-				$title .= sprintf ' until %vd', $experimental;
+				$title = sprintf('%s %vd',
+					$experimental =~ s/^\0// ? 'removed in ' : "$title until",
+					$experimental,
+				);
+				$experimental = $_->[3];  # optional additional class
 			}
 			elsif ($experimental) {
 				$class .= sprintf ' title="%s"', $experimental;