$img = read_original_image($r, $filename, $id, $dbwidth, $dbheight, 0);
$new_dbwidth = $width = $img->Get('columns');
$new_dbheight = $height = $img->Get('rows');
- @$img = ();
} else {
$img = Image::Magick->new;
$width = $dbwidth;
my ($res, $mtime) = @_;
my $str = POSIX::strftime("%a, %d %b %Y %H:%M:%S GMT", gmtime($mtime));
- $res->headers({ 'Last-Modified' => $str });
+ $res->header('Last-Modified' => $str);
}
sub get_server_name {