cvs commit: qpsmtpd/lib Qpsmtpd.pm
[email protected] (Ask "Bj?rn" Hansen)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/07/18 04:02:08
Modified: lib Qpsmtpd.pm
Log:
fix the CDB support so we can work without it (but with a big warning)
Revision Changes Path
1.35 +3 -1 qpsmtpd/lib/Qpsmtpd.pm
Index: Qpsmtpd.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -w -r1.34 -r1.35
--- Qpsmtpd.pm 11 Jun 2004 20:01:17 -0000 1.34
+++ Qpsmtpd.pm 18 Jul 2004 11:02:08 -0000 1.35
@@ -83,8 +83,10 @@
eval { require CDB_File };
if ($@) {
- $self->log(LOGERROR, "No $configfile.cdb support, could not load CDB_File module: $@");
+ $self->log(LOGERROR, "No CDB Support! Did NOT read $configfile.cdb, could not load CDB_File module: $@");
+ return +{};
}
+
my %h;
unless (tie(%h, 'CDB_File', "$configfile.cdb")) {
$self->log(LOGERROR, "tie of $configfile.cdb failed: $!");