From c2cb64efea3dd41db6a60bc6ec110a124e5588ab Mon Sep 17 00:00:00 2001
From: John Mertz <git@john.me.tz>
Date: Thu, 18 Jul 2024 22:48:21 -0600
Subject: [PATCH] Possible missing '/' in path

---
 sway/wallpaper.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sway/wallpaper.pl b/sway/wallpaper.pl
index 1ef0486..aaaabef 100755
--- a/sway/wallpaper.pl
+++ b/sway/wallpaper.pl
@@ -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();