[dahdi-commits] tzafrir: tools/trunk r5044 - /tools/trunk/xpp/perl_modules/Dahdi/Config/

[SVN commits to the DAHDI project]

Author: tzafrir
Date: Fri Oct  3 14:37:23 2008
New Revision: 5044

URL: http://svn.digium.com/view/dahdi?view=rev&rev=5044
Log:
When the config file is not found: return "empty" data and don't die.

Closes issues #13615 .

Modified:
    tools/trunk/xpp/perl_modules/Dahdi/Config/GenconfDefaults.pm

Modified: tools/trunk/xpp/perl_modules/Dahdi/Config/GenconfDefaults.pm
URL: http://svn.digium.com/view/dahdi/tools/trunk/xpp/perl_modules/Dahdi/Config/GenconfDefaults.pm?view=diff&rev=5044&r1=5043&r2=5044
==============================================================================
--- tools/trunk/xpp/perl_modules/Dahdi/Config/GenconfDefaults.pm (original)
+++ tools/trunk/xpp/perl_modules/Dahdi/Config/GenconfDefaults.pm Fri Oct  3 14:37:23 2008
@@ -14,7 +14,7 @@
 	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);