Switch version of dirname() too

davorg-cpan · Oct 28, 2024 · 63cf016 · 63cf016
1 parent 811a05d
commit 63cf016
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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"