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) |
93 # Nothing interesting about this package |
93 # Nothing interesting about this package |
94 delete $cookedData{$package}; |
94 delete $cookedData{$package}; |
95 } |
95 } |
96 |
96 |
97 # Output |
97 # Output |
98 print <<"EOT"; |
|
99 == Mercurial Comparison with $previousPdkLabel == |
|
100 |
|
101 The Mercurial changes from Nokia were delivered as a bulk update based on '''XXXXXXXXXXXXXXXXXXXXXX'''. |
|
102 |
|
103 List of the Mercurial changes (files added/removed/modified) between $previousPdkLabel and PDK '''XXXXX''' - [[Media:XXXX.txt]]. |
|
104 |
|
105 A short study of the results which concentrated on the added and removed files has identified these significant package changes: |
|
106 |
|
107 EOT |
|
108 |
|
109 foreach my $package (sort keys %cookedData) |
98 foreach my $package (sort keys %cookedData) |
110 { |
99 { |
111 print <<"EOT"; |
100 print <<"EOT"; |
112 === $package === |
101 === $package === |
113 |
102 |
114 $cookedData{$package}->{addRemove} files added/removed |
103 * $cookedData{$package}->{addRemove} files added/removed |
115 $cookedData{$package}->{percentChurn}% churn |
104 * $cookedData{$package}->{percentChurn}% churn |
116 $cookedData{$package}->{exception} |
105 $cookedData{$package}->{exception} |
117 * Cause1 |
106 # Cause1 |
118 * etc |
107 # etc |
119 |
108 |
120 EOT |
109 EOT |
121 } |
110 } |
122 |
111 |
123 if (!keys %cookedData) |
112 if (!keys %cookedData) |