| … | |
… | |
| 823 | my $tmpDirectory = $self->tempDirectory(); |
823 | my $tmpDirectory = $self->tempDirectory(); |
| 824 | #warn "\nTMP tmpDirectory $tmpDirectory"; |
824 | #warn "\nTMP tmpDirectory $tmpDirectory"; |
| 825 | unless ( -e $tmpDirectory) { # if by some unlucky chance the tmpDirectory hasn't been created, create it. |
825 | unless ( -e $tmpDirectory) { # if by some unlucky chance the tmpDirectory hasn't been created, create it. |
| 826 | my $parentDirectory = $tmpDirectory; |
826 | my $parentDirectory = $tmpDirectory; |
| 827 | $parentDirectory =~s|/$||; # remove a trailing / |
827 | $parentDirectory =~s|/$||; # remove a trailing / |
| 828 | $parentDirectory =~s|/\w*$||; # remove last node |
828 | $parentDirectory =~s|/[^/]*$||; # remove last node |
| 829 | my ($perms, $groupID) = (stat $parentDirectory)[2,5]; |
829 | my ($perms, $groupID) = (stat $parentDirectory)[2,5]; |
| 830 | #FIXME where is the parentDirectory defined?? |
830 | #FIXME where is the parentDirectory defined?? |
| 831 | #warn "Creating tmp directory at $tmpDirectory, perms $perms groupID $groupID"; |
831 | #warn "Creating tmp directory at $tmpDirectory, perms $perms groupID $groupID"; |
| 832 | $self->createDirectory($tmpDirectory, $perms, $groupID) |
832 | $self->createDirectory($tmpDirectory, $perms, $groupID) |
| 833 | or warn "Failed to create parent tmp directory at $path"; |
833 | or warn "Failed to create parent tmp directory at $path"; |
Parent Directory
| 
Revision Log
| 
Patch