From ae24115d0625a35f649675f4a21ea91efb7f00b7 Mon Sep 17 00:00:00 2001
From: Devin Carraway <qpsmtpd@devin.com>
Date: Mon, 28 Jun 2004 00:00:51 +0000
Subject: [PATCH] When spool_dir has improper permissions, mention what
 spool_dir is set to.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@250 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 91553bb..2984a69 100644
--- a/lib/Qpsmtpd/Transaction.pm
+++ b/lib/Qpsmtpd/Transaction.pm
@@ -81,7 +81,7 @@ sub body_write {
 
      if (-e $spool_dir) {
        my $mode = (stat($spool_dir))[2];
-       die "Permissions on the spool_dir are not 0700" if $mode & 07077;
+       die "Permissions on spool_dir $spool_dir are not 0700" if $mode & 07077;
      }
 
      -d $spool_dir or mkdir($spool_dir, 0700) or die "Could not create spool_dir $spool_dir: $!";