From 33b14649a11c8450f7d401a2109737e0063d5ff2 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 20 Jun 2023 21:14:53 +0100
Subject: [PATCH] mason/.perl-lib/TrivGal.pm (Image::scale): Escape original
 image URL.

Somehow missed this one the first time around.
---
 mason/.perl-lib/TrivGal.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mason/.perl-lib/TrivGal.pm b/mason/.perl-lib/TrivGal.pm
index e97ffb6..4e01f51 100644
--- a/mason/.perl-lib/TrivGal.pm
+++ b/mason/.perl-lib/TrivGal.pm
@@ -253,7 +253,8 @@ package TrivGal::Image {
 
     my ($wd, $ht) = ($img->width, $img->height);
     my $max = $wd > $ht ? $wd : $ht;
-    if ($max <= $sz) { return "$IMGURL/$path"; }
+    if ($max <= $sz)
+      { return $m->interp->apply_escapes("$IMGURL/$path", "u"); }
     my $sc = $sz/$max;
     my $scaled = $img->create_scaled_image($sc*$wd, $sc*$ht);
 
-- 
2.11.0