word: confine page include name scope

Very minor code cleanup.

diff --git a/word.plp b/word.plp
index e51ef3f4087c0c65f817d306319e5d4c38f75dbe..aedca9da411b67326c62ac8ce20b64a07fb14f51 100644 (file)
--- 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>';