From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 22 Mar 2018 00:17:46 +0000 (+0100)
Subject: perl: wrap long source lines to 80 characters
X-Git-Tag: v1.12~86
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/ae34f61b658a824a00ce2a619fa8736c001aa513

perl: wrap long source lines to 80 characters
---

diff --git a/perl.plp b/perl.plp
index 0476a9e..4e6222d 100644
--- a/perl.plp
+++ b/perl.plp
@@ -14,7 +14,8 @@ Html({
 :>
 <h1>Perl release summary</h1>
 
-<p>The most significant features introduced for recent versions of the Perl scripting language.
+<p>The most significant features introduced for recent versions of the Perl
+scripting language.
 Depending on desired compatibility you'll want to support a minimum of
 <span title="on dinosaur platforms such as Solaris 10, AIX 5.2, RHEL 3, SLES 8">v5.8</span> or
 <span title="on stable servers such as Debian wheezy, Ubuntu 12.04, CentOS 7">v5.14</span>.
@@ -27,7 +28,8 @@ for my $vernum (reverse sort keys %{$info}) {
 	defined $verrow->{unstable} and next unless exists $get{v};
 
 	say '<div class="section">';
-	say sprintf '<h2>%vd <small>%s</small></h2><dl>', $vernum, $verrow->{release};
+	say sprintf '<h2>%vd <small>%s</small></h2>', $vernum, $verrow->{release};
+	say '<dl>';
 	for (@{ $verrow->{new} }) {
 		my ($topic, $desc, $attr) = @{$_};
 		if ($attr) {
@@ -47,8 +49,9 @@ for my $vernum (reverse sort keys %{$info}) {
 					$attr->{experimental}, $title;
 			}
 			if ($attr->{feature}) {
-				$title = sprintf('<span title="%s">feature</span>', $attr->{feature})
-					. (defined $title && ", $title");
+				my $prefix = sprintf '<span title="%s">feature</span>',
+					$attr->{feature};
+				my $title = join ', ', $prefix, $title // ();
 			}
 			$desc .= sprintf ' <em class="ex">(%s)</em>', $title;
 		}