png画像をjpegに変換して、サイズを６０＊６０にしようとして、 下みたいにしてると、生成される画像サイズが、６０＊８０になる罠 use Imager; my $jpeg = Imager->new; $jpeg->read( data => $image->get('png150') ) or die $jpeg->errstr; my $scaled = …

毎回、リファラチェックするの面倒なので。 どうすかねぇ。 package Sledge::Plugin::RedirectReferer; use strict; use warnings; our $VERSION = '0.01';sub import { my $self = shift; my $pkg = caller; no strict 'refs'; *{"$pkg\::redirect_referer"…