[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