From 02d3c22d5c4670f1f939099b90147ba53008c1e0 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 13 Dec 2023 01:43:52 +0100
Subject: [PATCH] word: confine page include name scope

Very minor code cleanup.
---
 word.plp | 37 ++++++++++++++++++-------------------
 1 file changed, 18 insertions(+), 19 deletions(-)

diff --git a/word.plp b/word.plp
index e51ef3f..aedca9d 100644
--- a/word.plp
+++ b/word.plp
@@ -1,26 +1,25 @@
 <(common.inc.plp)><:
 
 my ($name) = $Request ? $Request =~ m{\A(\w+)} : 'finder';
-	my $page = "word/$name.plp";
-	if (-e $page) {
-		utf8::downgrade($page); # unicode filename breaks contents encoding
-		Include $page;
-	}
-	elsif (-e "word/$name.js") {
-		Html({
-			raw => join("\n",
-				(map {qq(<script src="/word/$_"></script>)}
-					'put.min.js', 'quiz.js', "$name.js",
-				),
-				(map {qq(<link rel="stylesheet" type="text/css" href="/$_">)}
-					grep {-e} "word/$name.css"
-				),
+if (-e (my $page = "word/$name.plp")) {
+	utf8::downgrade($page); # unicode filename breaks contents encoding
+	Include $page;
+}
+elsif (-e "word/$name.js") {
+	Html({
+		raw => join("\n",
+			(map {qq(<script src="/word/$_"></script>)}
+				'put.min.js', 'quiz.js', "$name.js",
+			),
+			(map {qq(<link rel="stylesheet" type="text/css" href="/$_">)}
+				grep {-e} "word/$name.css"
 			),
-		});
-		say '<h1>Words</h1>';
-		say '<section id="quiz"></section>';
-		say "<script>new Word\u$name()</script>";
-	}
+		),
+	});
+	say '<h1>Words</h1>';
+	say '<section id="quiz"></section>';
+	say "<script>new Word\u$name()</script>";
+}
 else {
 	Html();
 	say '<h1>Words</h1>';
-- 
2.30.0