diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-07-13 11:19:31 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-07-13 11:19:31 +0000 |
| commit | eb209983b577c1511edd805e0a43c2e2113ddeaf (patch) | |
| tree | 0b985ad6e3b1320fc2332727538cb50c315c06ba /op.h | |
| parent | 50528de03a5483f294e79d7075d69c5e4582d413 (diff) | |
| download | perl-eb209983b577c1511edd805e0a43c2e2113ddeaf.tar.gz | |
The current optimisation for sort {$b cmp $a} is bogus now that we
guarantee a stable sort. Disable it, pending a correct optimisation.
p4raw-id: //depot/perl@23093
Diffstat (limited to 'op.h')
| -rw-r--r-- | op.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -203,8 +203,9 @@ Deprecated. Use C<GIMME_V> instead. /* Private for OP_SORT */ #define OPpSORT_NUMERIC 1 /* Optimized away { $a <=> $b } */ #define OPpSORT_INTEGER 2 /* Ditto while under "use integer" */ -#define OPpSORT_REVERSE 4 /* Descending sort */ +#define OPpSORT_REVERSE 4 /* Reversed sort */ #define OPpSORT_INPLACE 8 /* sort in-place; eg @a = sort @a */ +#define OPpSORT_DESCEND 16 /* Descending sort */ /* Private for OP_THREADSV */ #define OPpDONE_SVREF 64 /* Been through newSVREF once */ |