equal
deleted
inserted
replaced
68 # Add the "exception" packages |
68 # Add the "exception" packages |
69 foreach my $package (@pkgErrors) |
69 foreach my $package (@pkgErrors) |
70 { |
70 { |
71 chomp $package; |
71 chomp $package; |
72 $package =~ s{No valid comparison for }{}; |
72 $package =~ s{No valid comparison for }{}; |
73 $cookedData{$package}->{exception} = "Package is brand new, or converted from SFL -> EPL, or has transitioned from FCL back to MCL (not covered in this section)\n"; |
73 $cookedData{$package}->{exception} = "* Package is brand new, or converted from SFL -> EPL, or has transitioned from FCL back to MCL (not covered in this section)\n"; |
74 } |
74 } |
75 |
75 |
76 # Cut-off for "interesting" packages |
76 # Cut-off for "interesting" packages |
77 |
77 |
78 foreach my $package (keys %cookedData) |
78 foreach my $package (keys %cookedData) |
109 foreach my $package (sort keys %cookedData) |
109 foreach my $package (sort keys %cookedData) |
110 { |
110 { |
111 print <<"EOT"; |
111 print <<"EOT"; |
112 === $package === |
112 === $package === |
113 |
113 |
114 $cookedData{$package}->{addRemove} files added/removed |
114 * $cookedData{$package}->{addRemove} files added/removed |
115 $cookedData{$package}->{percentChurn}% churn |
115 * $cookedData{$package}->{percentChurn}% churn |
116 $cookedData{$package}->{exception} |
116 $cookedData{$package}->{exception} |
117 * Cause1 |
117 # Cause1 |
118 * etc |
118 # etc |
119 |
119 |
120 EOT |
120 EOT |
121 } |
121 } |
122 |
122 |
123 if (!keys %cookedData) |
123 if (!keys %cookedData) |