From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 20 Jun 2023 20:14:53 +0000 (+0100)
Subject: mason/.perl-lib/TrivGal.pm (Image::scale): Escape original image URL.
X-Git-Url: https://git.distorted.org.uk/~mdw/tgal/commitdiff_plain/33b14649a11c8450f7d401a2109737e0063d5ff2

mason/.perl-lib/TrivGal.pm (Image::scale): Escape original image URL.

Somehow missed this one the first time around.
---

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);