X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=project%2FRel.pl;h=f5feef039dc43970a742af26ad55306c5d463899;hp=8f740e6759a042abf364363f009d03f390ed140f;hb=edd751ab0449b6117afdd9c496af762008c40351;hpb=de54f68329082f11a9926a99a832a4550bb17640

diff --git a/project/Rel.pl b/project/Rel.pl
index 8f740e6..f5feef0 100755
--- a/project/Rel.pl
+++ b/project/Rel.pl
@@ -43,14 +43,19 @@ my $W=My::Web->init(
 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) {