diff options
author | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2008-10-03 19:37:23 +0000 |
---|---|---|
committer | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2008-10-03 19:37:23 +0000 |
commit | 4638049260e6a39ee1db292ab4c2b206bcb88f64 (patch) | |
tree | b2a152642638d18b11621c7aae4b627261def272 /xpp/perl_modules/Dahdi/Config | |
parent | cbcecf918c61309b96f138c6dd76cf66b1515449 (diff) |
When the config file is not found: return "empty" data and don't die.
Closes issues #13615 .
git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@5044 a0bf4364-ded3-4de4-8d8a-66a801d63aff
Diffstat (limited to 'xpp/perl_modules/Dahdi/Config')
-rw-r--r-- | xpp/perl_modules/Dahdi/Config/GenconfDefaults.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/xpp/perl_modules/Dahdi/Config/GenconfDefaults.pm b/xpp/perl_modules/Dahdi/Config/GenconfDefaults.pm index 45250de..2a43e8f 100644 --- a/xpp/perl_modules/Dahdi/Config/GenconfDefaults.pm +++ b/xpp/perl_modules/Dahdi/Config/GenconfDefaults.pm @@ -14,7 +14,7 @@ sub new($$) { my $cfg_file = shift || die; my $self = { GENCONF_FILE => $cfg_file }; bless $self, $pack; - open(F, $cfg_file) || die "$0: Cannot read '$cfg_file': $!\n"; + open(F, $cfg_file) || return $self; # Empty configuration my $array_key; while(<F>) { my ($key, $val); |