diff options
| author | Vincent Pit <vince@profvince.com> | 2009-11-10 22:33:29 +0100 |
|---|---|---|
| committer | Vincent Pit <vince@profvince.com> | 2009-11-10 22:57:54 +0100 |
| commit | 484c818fbcf400d897228be2cf2b34b67be8a340 (patch) | |
| tree | 26736db0938f20edf01b6147a1ac853fef2cb715 /ext | |
| parent | a8136c1e0af23b491813e1678a650261d9a5017f (diff) | |
| download | perl-484c818fbcf400d897228be2cf2b34b67be8a340.tar.gz | |
Optimize reversing an array in-place
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Concise.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 671212d203..2699605894 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -634,6 +634,7 @@ $priv{"list"}{64} = "GUESSED"; $priv{"delete"}{64} = "SLICE"; $priv{"exists"}{64} = "SUB"; @{$priv{"sort"}}{1,2,4,8,16,32,64} = ("NUM", "INT", "REV", "INPLACE","DESC","QSORT","STABLE"); +$priv{"reverse"}{8} = "INPLACE"; $priv{"threadsv"}{64} = "SVREFd"; @{$priv{$_}}{16,32,64,128} = ("INBIN","INCR","OUTBIN","OUTCR") for ("open", "backtick"); |