[Bio] / Sprout / SproutLoad.pm Repository:
ViewVC logotype

Diff of /Sprout/SproutLoad.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32, Sun Apr 2 17:34:44 2006 UTC revision 1.33, Sat May 13 04:11:23 2006 UTC
# Line 132  Line 132 
132      # Load the list of trusted subsystems.      # Load the list of trusted subsystems.
133      my %subsystems = ();      my %subsystems = ();
134      if (! defined $subsysFile || $subsysFile eq '') {      if (! defined $subsysFile || $subsysFile eq '') {
135          # Here we want all the subsystems.          # Here we want all the NMPDR subsystems. First we get the whole list.
136          %subsystems = map { $_ => 1 } $fig->all_subsystems();          my @subs = $fig->all_subsystems();
137            # Loop through, checking for the NMPDR file.
138            for my $sub (@subs) {
139                if (-e "$FIG_Config::data/Subsystems/$sub/NMPDR") {
140                    $subsystems{$sub} = 1;
141                }
142            }
143      } else {      } else {
144          my $type = ref $subsysFile;          my $type = ref $subsysFile;
145          if ($type eq 'ARRAY') {          if ($type eq 'ARRAY') {

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3