[perl #86136] Downgrade sort {my $a} to a warning