diff options
| author | fukachan <fukachan> | 2001-10-10 14:53:45 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-10 14:53:45 +0000 |
| commit | 0695caede6e857b51e540f0d7741c27ea23d8dcc (patch) | |
| tree | 285cd73291f3d7ab6e13a55a4c9e33811d2f1f9b | |
| parent | 7bed78c883e3d511a77411478ffe9fd69e527824 (diff) | |
| download | fml8-0695caede6e857b51e540f0d7741c27ea23d8dcc.tar.gz fml8-0695caede6e857b51e540f0d7741c27ea23d8dcc.tar.bz2 fml8-0695caede6e857b51e540f0d7741c27ea23d8dcc.zip | |
check defined() more
| -rw-r--r-- | fml/lib/FML/Config.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm index a39e34bf..ec022e4a 100644 --- a/fml/lib/FML/Config.pm +++ b/fml/lib/FML/Config.pm @@ -1,7 +1,7 @@ #-*- perl -*- # Copyright (C) 2000-2001 Ken'ichi Fukamachi # -# $FML: Config.pm,v 1.40 2001/09/22 14:11:30 fukachan Exp $ +# $FML: Config.pm,v 1.41 2001/10/10 03:10:10 fukachan Exp $ # package FML::Config; @@ -533,7 +533,10 @@ sub has_attribute my ($self, $key, $attribute) = @_; my (@attribute) = split(/\s+/, $_fml_config{$key}); + return 0 unless defined $attribute; + for my $k (@attribute) { + next unless defined $k; return 1 if $k eq $attribute; } |