cvs commit: qpsmtpd/lib Qpsmtpd.pm
[email protected] (Ask Bjoern Hansen)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 03/06/10 03:06:31
Modified: lib Qpsmtpd.pm
Log:
don't try to open configuration files that does not exist.
Revision Changes Path
1.21 +1 -0 qpsmtpd/lib/Qpsmtpd.pm
Index: Qpsmtpd.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -w -r1.20 -r1.21
--- Qpsmtpd.pm 23 Apr 2003 03:36:36 -0000 1.20
+++ Qpsmtpd.pm 10 Jun 2003 10:06:31 -0000 1.21
@@ -77,6 +77,7 @@
return \%h;
}
+ return unless -e $configfile;
open CF, "<$configfile" or warn "$$ could not open configfile $configfile: $!" and return;
my @config = <CF>;
chomp @config;