- 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"