diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-02-20 14:54:35 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-20 14:54:35 +0000 |
| commit | fe1bc4cf71e7b04d33e679798964a090d9fa7b46 (patch) | |
| tree | b7becd86286cb9e996f2e531df18905546f8122e /op.h | |
| parent | e6e7068b743187ea85db546863975a687c18915d (diff) | |
| download | perl-fe1bc4cf71e7b04d33e679798964a090d9fa7b46.tar.gz | |
optimise the sorting inplace of plain arrays: @a = sort @a
p4raw-id: //depot/perl@22349
Diffstat (limited to 'op.h')
| -rw-r--r-- | op.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -194,6 +194,7 @@ Deprecated. Use C<GIMME_V> instead. #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_INPLACE 8 /* sort in-place; eg @a = sort @a */ /* Private for OP_THREADSV */ #define OPpDONE_SVREF 64 /* Been through newSVREF once */ |