[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.41, Fri Dec 17 23:20:56 2004 UTC revision 1.42, Fri Jan 7 18:53:40 2005 UTC
# Line 1537  Line 1537 
1537  #  #
1538  # Install this subsystem.  # Install this subsystem.
1539  #  #
1540  # $dont_assign is a list of local PEGs that should not have their assignments overwritten.  # $dont_assign is a list of subsytem PEGs that should not have their assignments overwritten.
1541  #  #
1542  # We return a list of for-the-installer messages that will be presented when the install completes.  # We return a list of for-the-installer messages that will be presented when the install completes.
1543  #  #
# Line 1646  Line 1646 
1646    
1647      my $curator = $self->curator();      my $curator = $self->curator();
1648    
1649        my %dont_assign;
1650    
1651        map { $dont_assign{$_}++ } @$dont_assign;
1652    
1653      for my $pegent (@{$self->{pegs}})      for my $pegent (@{$self->{pegs}})
1654      {      {
1655          my($peg, $aliases, $org, $func) = @$pegent;          my($peg, $aliases, $org, $func) = @$pegent;
# Line 1658  Line 1662 
1662              next;              next;
1663          }          }
1664    
1665            if ($dont_assign{$peg})
1666            {
1667                warn "Skipping assignment of $peg ($tpeg locally)\n";
1668                next;
1669            }
1670    
1671          my $old = $fig->function_of($tpeg);          my $old = $fig->function_of($tpeg);
1672    
1673          if ($old ne $func)          if ($old ne $func)

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3