source: create missing cache subdirectories

[sheet.git] / source.plp

diff --git a/source.plp b/source.plp
index 358bf8475f7355eecc190b76399483aa69d92f18..b10f38b268708d286b573990ae2fc8888f906465 100644 (file)
--- a/source.plp
+++ b/source.plp
@@ -86,6 +86,7 @@ else {
                say '</pre>';
                exit;
        }
+       -e or mkdir for $cachefile =~ s{[^/]+\z}{}r; # dirname
        open my $cache, '>', $cachefile
                or Alert("Could not save cache", "Opening $cachefile failed: $!");;