diff options
Diffstat (limited to 'xpp/perl_modules/Dahdi/Config/Gen.pm')
-rw-r--r-- | xpp/perl_modules/Dahdi/Config/Gen.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/xpp/perl_modules/Dahdi/Config/Gen.pm b/xpp/perl_modules/Dahdi/Config/Gen.pm index 01d602d..556e193 100644 --- a/xpp/perl_modules/Dahdi/Config/Gen.pm +++ b/xpp/perl_modules/Dahdi/Config/Gen.pm @@ -7,7 +7,8 @@ require Exporter; use strict; sub is_true($) { - my $val = shift || die; + my $val = shift; + return undef unless defined $val; return $val =~ /^(1|y|yes)$/i; } |