diff options
| author | fukachan <fukachan> | 2002-04-11 05:20:55 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-11 05:20:55 +0000 |
| commit | 2e0a34a76220c8e4a5d6d99b28f802993b64cf84 (patch) | |
| tree | a0634d70ae99ffc364b45aa55c1bd31045d2fced | |
| parent | b25f0b50d4988e7acdf56ed404a1195e3be18b36 (diff) | |
| download | fml8-2e0a34a76220c8e4a5d6d99b28f802993b64cf84.tar.gz fml8-2e0a34a76220c8e4a5d6d99b28f802993b64cf84.tar.bz2 fml8-2e0a34a76220c8e4a5d6d99b28f802993b64cf84.zip | |
has_attribute() should look up %_fml_config_result
| -rw-r--r-- | fml/lib/FML/Config.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm index efb0ea15..4dbbcf17 100644 --- a/fml/lib/FML/Config.pm +++ b/fml/lib/FML/Config.pm @@ -1,7 +1,9 @@ #-*- perl -*- # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi +# All rights reserved. This program is free software; you can +# redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Config.pm,v 1.57 2002/03/05 13:25:25 fukachan Exp $ +# $FML: Config.pm,v 1.58 2002/03/06 14:38:02 fukachan Exp $ # package FML::Config; @@ -666,7 +668,7 @@ sub no sub has_attribute { my ($self, $key, $attribute) = @_; - my (@attribute) = split(/\s+/, $_fml_config{$key}); + my (@attribute) = split(/\s+/, $_fml_config_result{$key}); return 0 unless defined $attribute; |