X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/a317b63cd771060b1adb44b311360d54af8eb25a..dbcdb5b8c11c68f0ee281488009a00a822ca5680:/perl.plp

diff --git a/perl.plp b/perl.plp
index b5e5d57..c227a9c 100644
--- a/perl.plp
+++ b/perl.plp
@@ -19,14 +19,18 @@ scripting language.
 <:
 my $info = Data('perl');
 
+use feature 'signatures';
+sub vname ($v) {
+	return sprintf 'v%d%03d', unpack 'C*', $v;
+}
+sub linkversion ($v) {
+	return showlink(sprintf('%vd', $v), '#'.vname($v));
+}
+
 eval {
 	use List::Util 'first';
 	use Time::Piece;
 	use Time::Seconds;
-	use feature 'signatures';
-	sub linkversion ($v) {
-		return sprintf('%vd', $v);
-	}
 
 	my $now = Time::Piece->new;
 	my $coreeol = ($now - ONE_YEAR * 3)->strftime('%F');
@@ -54,7 +58,7 @@ for my $vernum (reverse sort keys %{$info}) {
 	my $verrow = $info->{$vernum};
 	defined $verrow->{unstable} and next unless exists $get{v};
 
-	say '<div class="section">';
+	say sprintf '<div class="section" id="%s">', vname($vernum);
 	say sprintf '<h2>%vd <small>%s</small></h2>', $vernum, $verrow->{release};
 	say '<dl>';
 	for (@{ $verrow->{new} }) {