Use .dirname instead of deprecated .directory

tadzik · Oct 3, 2014 · aa0acc1 · aa0acc1
1 parent 7398d28
commit aa0acc1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Panda/Fetcher.pm b/lib/Panda/Fetcher.pm
@@ -46,7 +46,7 @@ sub local-fetch($from, $to) {
     my $cleanup       = $from.IO.cleanup;
     my $cleanup_chars = $cleanup.chars;
     for eager find(dir => $from).list {
-        my $d = IO::Spec.catpath($_.volume, $_.directory, '');
+        my $d = IO::Spec.catpath($_.volume, $_.dirname, '');
         # We need to cleanup the path, because the returned elems are too.
         if ($d.Str.index(~$cleanup) // -1) == 0 {
             $d = $d.substr($cleanup_chars)