From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 31 Jul 2014 10:59:19 +0000 (+0200)
Subject: perl: html in feature descriptions
X-Git-Tag: v1.6~73
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/9c404a8378e702a8b7f5ddecc2debea393a5b5fd

perl: html in feature descriptions
---

diff --git a/perl.inc.pl b/perl.inc.pl
index b499bf8..08961f6 100644
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -36,8 +36,8 @@ use utf8;
 			['//', 'defined-or operator'],
 			['~~', 'smart-match operator to compare different data types'],
 			['given', 'switch statement to smart-match with when/default'],
-			['/(?<name>)/', 'named capture buffers into %+'],
-			['s/keep\K//', 'floating positive lookbehind, efficient alternative for s/(keep)/$1/'],
+			['/(?<name>)/', 'named capture buffers into <code>%+</code>'],
+			['s/keep\K//', 'floating positive lookbehind, efficient alternative for <code>s/(keep)/$1/</code>'],
 			['/\v/, /\h/', 'vertical and horizontal whitespace escapes'],
 			['my $_', 'lexically scoped version of the default variable'],
 		],
@@ -64,10 +64,10 @@ use utf8;
 		new => [
 			['s///r', 'non-destructive substitution'],
 			['/(?^)/', 'construct to reset to default modifiers'],
-			['/(?{ m// })/', 'regular expressions can be nested in /(?{})/ and /(??{})/'],
+			['/(?{ m// })/', 'regular expressions can be nested in <code>/(?{})/</code> and <code>/(??{})/</code>'],
 			["use re '/flags'", 'customize default modifiers'],
 			['each $ref e.a.', 'array and hash container functions accept references'],
-			['FH->method', 'filehandle method calls load IO::File on demand (eg. STDOUT->flush)'],
+			['FH->method', 'filehandle method calls load IO::File on demand (eg. <code>STDOUT->flush</code>)'],
 		],
 		release => '2011-05-14',
 		distro => {
@@ -91,8 +91,8 @@ use utf8;
 
 	v5.18 => {
 		new => [
-			['${^LAST_FH}', 'last read filehandle (used by $.)'],
-			['/(?[ a + b ])/', 'regex set operations (character substraction -, unions &)'],
+			['${^LAST_FH}', 'last read filehandle (used by <code>$.</code>)'],
+			['/(?[ a + b ])/', 'regex set operations (character substraction -, unions &amp;)'],
 			['my sub foo', 'lexical subroutines (also state, our)'],
 			['next $expression', 'loop controls allow runtime expressions'],
 			["no warnings 'experimental::…'", 'mechanism for experimental features, as of now required for smartmatch'],
@@ -108,8 +108,8 @@ use utf8;
 		new => [
 			['sub ($var)', 'subroutine signatures'],
 			['%hash{…}', 'hash slices return key+value pairs'],
-			['[]->@*', 'postfix dereferencing (also e.g. $scalar->$* for $$scalar)'],
-			['use warnings; $a', 'variables $a and $b are exempt from used once warnings'],
+			['[]->@*', 'postfix dereferencing (also e.g. <code>$scalar->$*</code> for <code>$$scalar</code>)'],
+			['use warnings; $a', 'variables $a and $b are exempt from <em>used once</em> warnings'],
 		],
 		unicode => '6.3',
 		release => '2014-05-27',
diff --git a/perl.plp b/perl.plp
index eee43cf..856ee47 100644
--- a/perl.plp
+++ b/perl.plp
@@ -20,7 +20,7 @@ for my $vernum (reverse sort keys %{$info}) {
 	my $verrow = $info->{$vernum};
 	print '<div class="section">'."\n";
 	printf '<h2>%vd <small style="position:absolute; margin-left:1em">%s</small></h2><dl>'."\n", $vernum, $verrow->{release};
-	printf '<dt><code>%s</code><dd>%s', Entity(@{$_}), '<br/>' for @{ $verrow->{new} };
+	printf '<dt><code>%s</code><dd>%s', Entity($_->[0]), $_->[1], '<br/>' for @{ $verrow->{new} };
 	printf '<dt>Unicode</dt><dd>v%s', $_ for $verrow->{unicode} || ();
 	print "</dl>\n";
 	print "</div>\n\n";