From 0f35f241b7ef68e64094157004a1cf058226e615 Mon Sep 17 00:00:00 2001 From: Devin Carraway Date: Sun, 27 Jun 2004 23:39:32 +0000 Subject: [PATCH] When creation of spool_dir fails, report what dir it was trying to make. git-svn-id: https://svn.perl.org/qpsmtpd/trunk@249 958fd67b-6ff1-0310-b445-bb7760255be9 --- lib/Qpsmtpd/Transaction.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Qpsmtpd/Transaction.pm b/lib/Qpsmtpd/Transaction.pm index 602aa93..91553bb 100644 --- a/lib/Qpsmtpd/Transaction.pm +++ b/lib/Qpsmtpd/Transaction.pm @@ -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)