--- lib/PXElator/upstream.pm 2009/08/19 17:00:46 266 +++ lib/PXElator/upstream.pm 2009/08/19 22:48:54 271 @@ -79,15 +79,4 @@ } } -sub mkpath { - my $file = shift; - - my @file_parts = split m{/}, $file; - foreach ( 1 .. $#file_parts - 1 ) { - my $path = splice @file_parts, 0, $_; - warn "? $path\n"; - mkdir $path unless -e $path; - } -} - 1;