diff options
author | mbrudka <mbrudka@a3e5c962-4219-0410-a828-e124f845ac39> | 2004-12-01 18:38:34 +0000 |
---|---|---|
committer | mbrudka <mbrudka@a3e5c962-4219-0410-a828-e124f845ac39> | 2004-12-01 18:38:34 +0000 |
commit | ccd6b858e94570d283bed29fc3e30433af3e5ab5 (patch) | |
tree | 8bcd6a73985ae7c303ebd166d7d1dd43d42f6cc3 /modules/FeatureParser.pm | |
parent | 7905477c724a03d62d400da8b46e721d8013cad1 (diff) | |
download | MPC-ccd6b858e94570d283bed29fc3e30433af3e5ab5.tar.gz |
ChangeLogTag: Wed Dec 1 19:28:19 2004 Marek Brudka <mbrudka@aster.pl>
Diffstat (limited to 'modules/FeatureParser.pm')
-rw-r--r-- | modules/FeatureParser.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/modules/FeatureParser.pm b/modules/FeatureParser.pm index 71670f5b..080b34ae 100644 --- a/modules/FeatureParser.pm +++ b/modules/FeatureParser.pm @@ -26,6 +26,7 @@ sub new { my($class) = shift; my($global_file) = shift; my($file) = shift; + my($features) = shift; my($self) = $class->SUPER::new(); ## Set the values associative array @@ -44,6 +45,16 @@ sub new { } } + ## Process each feature definition + foreach my $feature (@$features) { + my($status, $warn) = $self->parse_line(undef, $feature); + if (!$status) { + ## We only want to warn the user about problems + ## with the feature file. + $self->warning("-features parameter: $warn"); + } + } + return $self; } |