46a47
> use IO::All;
69a71,74
>         for (@children) {
>             $_->{path} ||= [];
>             unshift @{ $_->{path} }, $outline->title;
>         }
73a79
>         $name = io->catfile(@{ $outline->{path} }, $name)->pathname;
104,105c110,112
<     if (mkdir $loc) {
<         my $fh = new IO::File "> $loc/info.plist";
---
> 
>     if (io($loc)->mkpath) {
>         my $fh = new IO::File "> $loc/Info.plist";