From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 17 Aug 2009 20:20:01 +0000 (-0700)
Subject: warn if there isn't a configuration file, but continue
X-Git-Tag: release/2.6.0~447^2~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=877ed447705745566e862dfacc6d70dc184bb6d6;p=debbugs.git

warn if there isn't a configuration file, but continue
---

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index eeea7641..b75bd0b1 100644
--- a/Debbugs/Config.pm
+++ b/Debbugs/Config.pm
@@ -991,6 +991,10 @@ set_default(\%config,'html_expire_note',
 
 sub read_config{
      my ($conf_file) = @_;
+     if (not -e $conf_file) {
+	 print STDERR "configuration file '$conf_file' doesn't exist; skipping it";
+	 return;
+     }
      # first, figure out what type of file we're reading in.
      my $fh = new IO::File $conf_file,'r'
 	  or die "Unable to open configuration file $conf_file for reading: $!";