From c076c10eaed2ff4a7ef332183e63da4a9f918f65 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Tue, 18 Mar 2008 20:30:16 +0000
Subject: [PATCH] fix die() message

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@870 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Apache/Qpsmtpd.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Apache/Qpsmtpd.pm b/lib/Apache/Qpsmtpd.pm
index c5fab13..35dcab3 100644
--- a/lib/Apache/Qpsmtpd.pm
+++ b/lib/Apache/Qpsmtpd.pm
@@ -23,7 +23,7 @@ sub handler {
     my Apache2::Connection $c = shift;
     $c->client_socket->opt_set(APR::Const::SO_NONBLOCK => 0);
 
-    die "SetEnv QPSMTPD_CONFIG must be given" unless $ENV{QPSMTPD_CONFIG};
+    die "\$ENV{QPSMTPD_CONFIG} must be given" unless $ENV{QPSMTPD_CONFIG};
     
     my $qpsmtpd = Qpsmtpd::Apache->new();
     $qpsmtpd->start_connection(