--- trunk/lib/Frey/Designer.pm 2008/10/31 19:51:51 213 +++ trunk/lib/Frey/Designer.pm 2008/11/01 00:58:24 224 @@ -12,6 +12,7 @@ extends 'Frey'; with 'Frey::Web'; +with 'Frey::Path'; has 'uri' => ( is => 'rw', @@ -37,7 +38,6 @@ use HTML::Query; use File::Slurp; use LWP::Simple qw/get/; -use File::Path; use Data::Dump qw/dump/; use HTML::ResolveLink; @@ -56,9 +56,7 @@ if ( ! -e $path && $self->mirror ) { - my $base_path = $path; - $base_path =~ s{/[^/]+$}{}; - mkpath $base_path if ! -e $base_path; + $self->mkbasepath( $path ); my $url = $self->uri; warn ">> mirror $url -> $path\n";