Subversion Repositories gelsvn

Rev

Rev 68 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68 Rev 71
Line 21... Line 21...
21 
# ************************************************************
 21 
# ************************************************************
22 
# Subroutine Section
 22 
# Subroutine Section
23 
# ************************************************************
 23 
# ************************************************************
24 
 
 24 
 
25 
sub new {
 25 
sub new {
26 
  my($class)       = shift;
 26 
  my($class)    = shift;
27 
  my($global_file) = shift;
 27 
  my($features) = shift;
28 
  my($file)        = shift;
 - 
 
29 
  my($features)    = shift;
 28 
  my(@files)    = @_;
30 
  my($self)        = $class->SUPER::new();
 29 
  my($self)     = $class->SUPER::new();
31 
 
 30 
 
32 
  ## Set the values associative array
 31 
  ## Set the values associative array
33 
  $self->{'values'} = {};
 32 
  $self->{'values'} = {};
34 
 
 33 
 
35 
  ## Process each feature file
 34 
  ## Process each feature file
36 
  foreach my $f ($global_file, $file) {
 35 
  foreach my $f (@files) {
37 
    if (defined $f) {
 36 
    if (defined $f) {
38 
      my($status, $warn) = $self->cached_file_read($f);
 37 
      my($status, $warn) = $self->cached_file_read($f);
39 
      if (!$status) {
 38 
      if (!$status) {
40 
        ## We only want to warn the user about problems
 39 
        ## We only want to warn the user about problems
41 
        ## with the feature file.
 40 
        ## with the feature file.