perl: combined experimental class and version

[sheet.git] / perl.plp

diff --git a/perl.plp b/perl.plp
index 6bc35863a83b03357dad72e358385221ec54ce85..4c9068797a5a0668d2ea19b6faf40bb34c6911e0 100644 (file)
--- a/perl.plp
+++ b/perl.plp
@@ -39,7 +39,7 @@ for my $vernum (reverse sort keys %{$info}) {
                                );
                                $experimental = $_->[3];  # optional additional class
                        }
-                       elsif ($experimental) {
+                       if ($experimental) {
                                $class .= sprintf ' title="%s"', $experimental;
                        }
                        $_->[1] .= qq{ <em$class>($title)</em>};