chiark
/
gitweb
/
~mdw
/
tgal
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
mason/.perl-lib/TrivGal.pm (Image::scale): Escape original image URL.
[tgal]
/
mason
/
.perl-lib
/
TrivGal.pm
diff --git
a/mason/.perl-lib/TrivGal.pm
b/mason/.perl-lib/TrivGal.pm
index e97ffb687f78c1ab3937cede7eda98dfbca6fe7a..4e01f51cbfa2f4092ccc0842fa411618eccbd63f 100644
(file)
--- 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;
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);
my $sc = $sz/$max;
my $scaled = $img->create_scaled_image($sc*$wd, $sc*$ht);