Possible missing '/' in path

This commit is contained in:
John Mertz 2024-07-18 22:48:21 -06:00
parent 242957774e
commit c2cb64efea
1 changed files with 1 additions and 1 deletions

View File

@ -207,7 +207,7 @@ sub choose_image($self)
sub crop($self, $image, $ow, $oh)
{
my $cropped = $image;
$cropped =~ s#^.*/([^/]*)\.([^\.]+)$#$self->{'path'}$1-cropped.$2#;
$cropped =~ s#^.*/([^/]*)\.([^\.]+)$#$self->{'path'}/$1-cropped.$2#;
use Image::Magick;
my $im = Image::Magick->new();