byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

When creation of spool_dir fails, report what dir it was trying to make.

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@249 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Devin Carraway 2004-06-27 23:39:32 +00:00
parent 4f2f9889d0
commit 0f35f241b7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Qpsmtpd/Transaction.pm
View File

@ -84,7 +84,7 @@ sub body_write {
die "Permissions on the spool_dir are not 0700" if $mode & 07077;
}
-d $spool_dir or mkdir($spool_dir, 0700) or die "Could not create spool_dir: $!";
-d $spool_dir or mkdir($spool_dir, 0700) or die "Could not create spool_dir $spool_dir: $!";
$self->{_filename} = $spool_dir . join(":", time, $$, $transaction_counter++);
$self->{_filename} =~ tr!A-Za-z0-9:/_-!!cd;
$self->{_body_file} = IO::File->new($self->{_filename}, O_RDWR|O_CREAT, 0600)