On Thu, Jul 08, 2004 at 08:35:49PM -0500, david nicol wrote: > There's some reverse-handling code in pp_sort which I took > to be responding to a hint that > > reverse sort ... > > has been encountered: > > > if (PL_op->op_private & OPpSORT_REVERSE) { > SV **p = sorting_av ? AvARRAY(av) : ORIGMARK+1; > SV **q = p+max-1; > while (p < q) { > SV *tmp = *p; > *p++ = *q; > *q-- = tmp; > } > } No, that's for optimising away the sort block in @x = sort {$b cmp $a } @y; -- Technology is dominated by two types of people: those who understand what they do not manage, and those who manage what they do not understand.