From 63cf0168ab9a3201bbeb583ffdcab69fa30fc4f6 Mon Sep 17 00:00:00 2001
From: Dave Cross <dave@perlhacks.com>
Date: Mon, 28 Oct 2024 15:37:17 +0000
Subject: [PATCH] Switch version of dirname() too

---
 lib/App/Aphra.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/App/Aphra.pm b/lib/App/Aphra.pm
index 48194d9..e036ab3 100644
--- a/lib/App/Aphra.pm
+++ b/lib/App/Aphra.pm
@@ -247,7 +247,7 @@ sub make_redirects {
 
     my $to = $_->{to};
 
-    my $outdir = dirname "$target$from";
+    my $outdir = path("$target$from")->dirname;
     path($outdir)->mkdir;
 
     open my $out_fh, '>', "$target$from"