[SLL] cpan, perl module help
Mike Bate
mikebate_tl at earthlink.net
Sun Sep 14 13:54:13 PDT 2008
Derek Simkowiak wrote:
> I don't see the call to mkpath() in the block of code below... what is this
> block, and why did you send it to me?
Oops, line 112 didn't make it into my cut/paste. I sent it in case seeing a bit
more of Install.pm helped determine why the error occurs. Trying again below...
> Note, File::Path holds mkpath().
Thank you. Where would I find that module to view it?
my($source_dir_or_file);
foreach $source_dir_or_file (sort keys %from_to) {
#Check if there are files, and if yes, look if the corresponding
#target directory is writable for us
opendir DIR, $source_dir_or_file or next;
for (readdir DIR) {
next if $_ eq $Curdir || $_ eq $Updir || $_ eq ".exists";
my $targetdir = install_rooted_dir($from_to{$source_dir_or_file});
..112.. mkpath($targetdir) unless $nonono;
if (!$nonono && !-w $targetdir) {
warn "Warning: You do not have permissions to " .
"install into $from_to{$source_dir_or_file}"
unless $warn_permissions++;
}
}
closedir DIR;
}
More information about the linux-list
mailing list