diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2005-08-12 17:33:03 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2005-08-12 17:33:03 +0000 |
| commit | 7efefc7676565a575ce72fd46e7c7f807e2fa346 (patch) | |
| tree | 59dd1697b86932abd8ba702509d89d40de9c7552 /modules/FeatureParser.pm | |
| parent | dd1cab672748a7ba368013ad9fd896287ee037b4 (diff) | |
| download | MPC-7efefc7676565a575ce72fd46e7c7f807e2fa346.tar.gz | |
ChangeLogTag: Fri Aug 12 12:30:19 2005 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/FeatureParser.pm')
| -rw-r--r-- | modules/FeatureParser.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/modules/FeatureParser.pm b/modules/FeatureParser.pm index 2a67d995..5b9e874f 100644 --- a/modules/FeatureParser.pm +++ b/modules/FeatureParser.pm @@ -23,17 +23,16 @@ use vars qw(@ISA); # ************************************************************ sub new { - my($class) = shift; - my($global_file) = shift; - my($file) = shift; - my($features) = shift; - my($self) = $class->SUPER::new(); + my($class) = shift; + my($features) = shift; + my(@files) = @_; + my($self) = $class->SUPER::new(); ## Set the values associative array $self->{'values'} = {}; ## Process each feature file - foreach my $f ($global_file, $file) { + foreach my $f (@files) { if (defined $f) { my($status, $warn) = $self->cached_file_read($f); if (!$status) { |