use EscapeHTML() from PLP v3.23
[sheet.git] / source.plp
index 295f9e0..7640ae0 100644 (file)
@@ -24,7 +24,7 @@ if (not $source) {
        print '<ul>'."\n";
        for (glob '*.plp') {
                chomp;
-               printf '<li><a href="/source/%s">%1$s</a></li>'."\n", Entity($_);
+               printf '<li><a href="/source/%s">%1$s</a></li>'."\n", EscapeHTML($_);
        }
        print "</ul>\n\n";
 }