Replace dirname() with Path::Tiny pattern

PerlDancer · Nov 6, 2016 · 45fd059 · 45fd059
1 parent 814231b
commit 45fd059
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Dancer2/FileUtils.pm b/lib/Dancer2/FileUtils.pm
@@ -31,7 +31,7 @@ sub path_or_empty {
     return -e $path ? $path : '';
 }
 
-sub dirname { File::Basename::dirname(@_) }
+sub dirname { return Path::Tiny::path(@_)->parent->stringify; }
 
 # Can be removed
 sub set_file_mode {