[Bio] / FigKernelPackages / P2Pupdate.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/P2Pupdate.pm

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

revision 1.40, Fri Dec 17 21:33:11 2004 UTC revision 1.41, Fri Dec 17 23:20:56 2004 UTC
# Line 2  Line 2 
2    
3  use strict;  use strict;
4    
5    use Safe;
6  use FIG_Config;  use FIG_Config;
7  use FIG;  use FIG;
8  use Carp;  use Carp;
# Line 1433  Line 1434 
1434                  # as a role in any local subsystem. If it is, then when that subsystem                  # as a role in any local subsystem. If it is, then when that subsystem
1435                  # is refilled, this peg will appear in it.                  # is refilled, this peg will appear in it.
1436                  #                  #
1437                  # $subsystem_)roles is a hash keyed on role name with each value                  # $subsystem_roles is a hash keyed on role name with each value
1438                  # a list of subsystem names.                  # a list of subsystem names.
1439                  #                  #
1440    
# Line 1443  Line 1444 
1444                      # $loc_ss is the set of subsystems that have the new                      # $loc_ss is the set of subsystems that have the new
1445                      # function assignment as a role name.                      # function assignment as a role name.
1446                      #                      #
1447                      push(@$subs_added, @$loc_ss);                      my @subs = grep { $_ ne $sub_name} @$loc_ss;
1448    
1449                      map { $subs_in{$_++} } @$loc_ss;                      if (@subs)
1450                        {
1451                            push(@$subs_added, @subs);
1452    
1453                            map { $subs_in{$_}++ } @subs;
1454                      $roles_in{$ss_func}++;                      $roles_in{$ss_func}++;
1455                  }                  }
1456                    }
1457    
1458                  push(@conflict, [$ss_peg, $ss_func, $loc_peg, $loc_func, $subs_removed, $subs_added]);                  push(@conflict, [$ss_peg, $ss_func, $loc_peg, $loc_func, $subs_removed, $subs_added]);
1459              }              }
# Line 1681  Line 1687 
1687      return @messages;      return @messages;
1688  }  }
1689    
1690    #
1691    # Read the aggregate analysis results.
1692    #
1693    
1694    sub aggregate_analysis
1695    {
1696        my($self) = @_;
1697    
1698        if (open(my $fh, "<$self->{qdir}/aggregate"))
1699        {
1700            local($/);
1701            my $txt = <$fh>;
1702            close($fh);
1703    
1704            my $VAR1;               # For the Dumper'd data.
1705    
1706            my $compartment = new Safe;
1707            my $aggr = $compartment->reval($txt);
1708            if ($@)
1709            {
1710                warn "aggregate_analysis: error parsing saved data: $@";
1711                return undef;
1712            }
1713            return $aggr;
1714        }
1715        else
1716        {
1717            return undef;
1718        }
1719    }
1720    
1721  sub name  sub name
1722  {  {
1723      my($self) = @_;      my($self) = @_;

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3