my $path = $me->{path};
my $sz = $SIZE{$scale} or die "unknown scale `$scale'";
- my $thumb = "$CACHE/scale.$sz/$path";
- my $thumburl =
- $m->interp->apply_escapes("$CACHEURL/scale.$sz/$path", "u");
+ if ($me->sz <= $sz)
+ { return $m->interp->apply_escapes("$IMGURL/$path", "u"); }
+
+ my $tail = "scale.$sz/$path";
+ my $thumb = "$CACHE/$tail";
+ my $thumburl = $m->interp->apply_escapes("$CACHEURL/$tail", "u");
my $st = stat $thumb;
if (defined $st && $st->mtime > $me->{mtime}) { return $thumburl; }
return
}
}
- if ($me->sz <= $sz)
- { return $m->interp->apply_escapes("$IMGURL/$path", "u"); }
my $sc = $sz/$me->sz;
my $scaled = $img->create_scaled_image($sc*$wd, $sc*$ht);