diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-07-14 20:55:30 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-07-14 20:55:30 +0000 |
| commit | ef3e5ea91ec4f974a02ae36f5bcc9e91bcab852f (patch) | |
| tree | 5afdbe2673bff0daa51e96345a9c7c541aaaff79 /ext/B | |
| parent | ab7ee80f77caf2fe052e7d3d8de31097ada2baae (diff) | |
| download | perl-ef3e5ea91ec4f974a02ae36f5bcc9e91bcab852f.tar.gz | |
Optimise foreach my $i (reverse ...)
foreach without a lexical iterator not yet optimised
p4raw-id: //depot/perl@23108
Diffstat (limited to 'ext/B')
| -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 ebd5848e60..28545b98ed 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -546,6 +546,7 @@ $priv{$_}{16} = "TARGMY" "link", "symlink", "mkdir", "rmdir", "wait", "waitpid", "system", "exec", "kill", "getppid", "getpgrp", "setpgrp", "getpriority", "setpriority", "time", "sleep"); +$priv{$_}{4} = "REVERSED" for ("enteriter", "iter"); @{$priv{"const"}}{8,16,32,64,128} = ("STRICT","ENTERED", '$[', "BARE", "WARN"); $priv{"flip"}{64} = $priv{"flop"}{64} = "LINENUM"; $priv{"list"}{64} = "GUESSED"; |