summaryrefslogtreecommitdiff
path: root/modules/FeatureParser.pm
diff options
context:
space:
mode:
authormbrudka <mbrudka@a3e5c962-4219-0410-a828-e124f845ac39>2004-12-01 18:38:34 +0000
committermbrudka <mbrudka@a3e5c962-4219-0410-a828-e124f845ac39>2004-12-01 18:38:34 +0000
commitccd6b858e94570d283bed29fc3e30433af3e5ab5 (patch)
tree8bcd6a73985ae7c303ebd166d7d1dd43d42f6cc3 /modules/FeatureParser.pm
parent7905477c724a03d62d400da8b46e721d8013cad1 (diff)
downloadMPC-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.pm11
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;
}