From 2306963b392cb67d27e354af3327be8bc9111ff1 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 13 Jun 2023 01:02:03 +0100
Subject: [PATCH] mason/.perl-lib/TrivGal.pm: Make cache directories
 world-unreadable.

Otherwise you can use the automatically generated indices in the cache
tree to deduce the names of the hidden folders in the main image tree.
---
 mason/.perl-lib/TrivGal.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mason/.perl-lib/TrivGal.pm b/mason/.perl-lib/TrivGal.pm
index 50c2f45..e97ffb6 100644
--- a/mason/.perl-lib/TrivGal.pm
+++ b/mason/.perl-lib/TrivGal.pm
@@ -260,9 +260,9 @@ package TrivGal::Image {
     $scaled->image_set_format($ty->imlibfmt);
     $scaled->set_quality(90);
     my $new = "$TMP/t$$-$ext";
-    make_path $TMP;
+    make_path $TMP, { mode => 0771 };
     $scaled->save($new);
-    make_path $dir;
+    make_path $dir, { mode => 0771 };
     rename $new, $thumb;
     return $thumburl;
   }
-- 
2.11.0