sub localize {
    ....
    my($aslocal_dir) = File::Basename::dirname($aslocal);
    File::Path::mkpath($aslocal_dir);  # line 2342
    $CPAN::Frontend->mywarn(qq{Warning: You are not allowed to write into }.
        qq{directory "$aslocal_dir".
    I\'ll continue, but if you encounter problems, they may be due
    to insufficient permissions.\n}) unless -w $aslocal_dir;