jpm
/
scripts
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
sway/wallpaper.pl
View File

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