Possible missing '/' in path
This commit is contained in:
parent
242957774e
commit
c2cb64efea
|
@ -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();
|
||||
|
|
Loading…
Reference in New Issue