my %item=( My::Project::item_hash_read() );
my @platforms=@My::Project::platforms;
my @projects=();
-while (@platforms) {
+# Do not sort by platforms:
+# while (@platforms)
+{
my $platform_sym =shift @platforms;
my $platform_name=shift @platforms;
push @projects,sort {
($item{$b}{"priority"} <=> $item{$a}{"priority"})
or
(lc($item{$a}{"name"}) cmp lc($item{$b}{"name"}));
- } map({ $item{$_}{"platform"} ne $platform_sym ? () : ($_); } keys(%item));
+ }
+ ( # Do not sort by platform: map({ $item{$_}{"platform"} ne $platform_sym ? () : ($_); } # )
+ keys(%item)
+ );
}
my $target=undef();
for (0..$#projects) {