equal
deleted
inserted
replaced
61 @manifest = `hg cat -r $previousPdkLabel $prevSourcesCsv`; |
61 @manifest = `hg cat -r $previousPdkLabel $prevSourcesCsv`; |
62 populate($packages->{previous}, @manifest); |
62 populate($packages->{previous}, @manifest); |
63 |
63 |
64 my $xml = XML::Parser->new(Style => "Objects") or die; |
64 my $xml = XML::Parser->new(Style => "Objects") or die; |
65 # Load current names from current system definition |
65 # Load current names from current system definition |
66 my $tree = $xml->parsefile($sysDef); |
66 eval { populateNames($packages->{current}, $xml->parsefile($sysDef) ) }; |
67 populateNames($packages->{current}, $tree); |
|
68 # Load previous names from previous system definition |
67 # Load previous names from previous system definition |
69 eval { $tree = $xml->parsestring(scalar `hg cat -r $previousPdkLabel $prevSysDef`) } or die $!; |
68 eval { populateNames($packages->{previous}, $xml->parsestring(scalar `hg cat -r $previousPdkLabel $prevSysDef`) ) }; |
70 populateNames($packages->{previous}, $tree); |
|
71 |
69 |
72 # Output release note info... |
70 # Output release note info... |
73 |
71 |
74 my $currPackageCount = scalar keys %{$packages->{current}}; |
72 my $currPackageCount = scalar keys %{$packages->{current}}; |
75 my $prevPackageCount = scalar keys %{$packages->{previous}}; |
73 my $prevPackageCount = scalar keys %{$packages->{previous}}; |
162 foreach (sort { packageSort($packages->{current}) } grep {inPrev($_) && $packages->{previous}->{$_}->{codeline} eq "FCL" && $packages->{current}->{$_}->{codeline} eq "FCL"} keys %{$packages->{current}}) |
160 foreach (sort { packageSort($packages->{current}) } grep {inPrev($_) && $packages->{previous}->{$_}->{codeline} eq "FCL" && $packages->{current}->{$_}->{codeline} eq "FCL"} keys %{$packages->{current}}) |
163 { |
161 { |
164 print "==== $packages->{current}->{$_}->{name} ([$packages->{current}->{$_}->{url} $packages->{current}->{$_}->{path}]) ====\n"; |
162 print "==== $packages->{current}->{$_}->{name} ([$packages->{current}->{$_}->{url} $packages->{current}->{$_}->{path}]) ====\n"; |
165 } |
163 } |
166 |
164 |
167 print "\n=== FCLs used in PDK_2.0.0 but no longer needed ===\n\n"; |
165 print "\n=== FCLs used in $previousPdkLabel but no longer needed ===\n\n"; |
168 my @revertedToMCL = sort { packageSort($packages->{current}) } grep { inPrev($_) && $packages->{previous}->{$_}->{codeline} eq "FCL" && $packages->{current}->{$_}->{codeline} eq "MCL" } keys %{$packages->{current}}; |
166 my @revertedToMCL = sort { packageSort($packages->{current}) } grep { inPrev($_) && $packages->{previous}->{$_}->{codeline} eq "FCL" && $packages->{current}->{$_}->{codeline} eq "MCL" } keys %{$packages->{current}}; |
169 print "(none)\n" unless @revertedToMCL; |
167 print "(none)\n" unless @revertedToMCL; |
170 foreach (@revertedToMCL) |
168 foreach (@revertedToMCL) |
171 { |
169 { |
172 print "==== $packages->{current}->{$_}->{name} ([$packages->{current}->{$_}->{url} $packages->{current}->{$_}->{path}]) ====\n"; |
170 print "==== $packages->{current}->{$_}->{name} ([$packages->{current}->{$_}->{url} $packages->{current}->{$_}->{path}]) ====\n"; |