Lines Matching refs:Comp

529         foreach my $Comp ("Binary", "Source")
531             if(not defined $TestResults{$LName}{$Comp}) {
534             foreach my $Kind (keys(%{$TestResults{$LName}{$Comp}}))
537                     $TOTAL{$LName}{$Comp} += $TestResults{$LName}{$Comp}{$Kind};
545     foreach my $Comp ("Binary", "Source")
547         $STAT{$Comp}{"total"} = keys(%TestResults) - keys(%SONAME_Changed);
548         $STAT{$Comp}{"added"} = keys(%Added);
549         $STAT{$Comp}{"removed"} = keys(%Removed);
557                 $STAT{$Comp}{$Kind} += $TestResults{$LName}{$Comp}{$_};
559             push(@{$META_DATA{$Comp}}, $Kind.":".$STAT{$Comp}{$Kind});
569                     $STAT{$Comp}{$Kind} += $TestResults{$LName}{$Comp}{$Kind};
571                 push(@{$META_DATA{$Comp}}, $Kind.":".$STAT{$Comp}{$Kind});
578                 $STAT{$Comp}{$_} += $TestResults{$LName}{$Comp}{$_};
580             if(not defined $STAT{$Comp}{"verdict"}
581             and $TestResults{$LName}{$Comp}{"verdict"} eq "incompatible") {
582                 $STAT{$Comp}{"verdict"} = "incompatible";
585         if(not defined $STAT{$Comp}{"verdict"}) {
586             $STAT{$Comp}{"verdict"} = "compatible";
588         if($STAT{$Comp}{"total"}) {
589             $STAT{$Comp}{"affected"} /= $STAT{$Comp}{"total"};
592             $STAT{$Comp}{"affected"} = 0;
594         $STAT{$Comp}{"affected"} = show_number($STAT{$Comp}{"affected"});
595         if($STAT{$Comp}{"verdict"}>1) {
596             $STAT{$Comp}{"verdict"} = 1;
598         push(@{$META_DATA{$Comp}}, "changed_constants:".$STAT{$Comp}{"changed_constants"});
599         push(@{$META_DATA{$Comp}}, "tool_version:".get_dumpversion("perl $0"));
601             @{$META_DATA{$Comp}} = ($_.":".$STAT{$Comp}{$_}, @{$META_DATA{$Comp}});