From 227d23a02fd8d9ce91e47889c7497a1548a6f855 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 11 Jun 2023 17:48:42 +0100
Subject: [PATCH] mason/.perl-lib/TrivGal.pm (Image::scale): Put `-' in
 temporary file name.

After all, this what `clean_temp_files' is looking for.
---
 mason/.perl-lib/TrivGal.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mason/.perl-lib/TrivGal.pm b/mason/.perl-lib/TrivGal.pm
index eb82db2..9b05723 100644
--- a/mason/.perl-lib/TrivGal.pm
+++ b/mason/.perl-lib/TrivGal.pm
@@ -252,7 +252,7 @@ package TrivGal::Image {
 
     $scaled->image_set_format($ty->imlibfmt);
     $scaled->set_quality(90);
-    my $new = "$TMP/t${$}$ext";
+    my $new = "$TMP/t$$-$ext";
     make_path $TMP;
     $scaled->save($new);
     make_path $dir;
-- 
2.11.0