diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-09-10 22:26:29 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-09-10 22:33:18 -0700 |
commit | 3324ed9f6472f4fa8368f84762b440be0b7392b0 (patch) | |
tree | fb27abea49ce402222d727f675901a51941e2637 /ext | |
parent | d06f995a661736bdc3bcf46d33aaa5c4057cad49 (diff) | |
download | perl-3324ed9f6472f4fa8368f84762b440be0b7392b0.tar.gz |
Teach B::Concise about OPpFT_STACKING
Diffstat (limited to 'ext')
-rw-r--r-- | ext/B/B/Concise.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 99d76af802..8ab7e001d0 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -650,7 +650,7 @@ $priv{$_}{2} = "FTACCESS" $priv{"entereval"}{2} = "HAS_HH"; if ($] >= 5.009) { # Stacked filetests are post 5.8.x - $priv{$_}{4} = "FTSTACKED" + @{$priv{$_}}{4,8} = ("FTSTACKED","FTSTACKING") for ("ftrread", "ftrwrite", "ftrexec", "fteread", "ftewrite", "fteexec", "ftis", "fteowned", "ftrowned", "ftzero", "ftsize", "ftmtime", "ftatime", "ftctime", "ftsock", "ftchr", "ftblk", "ftfile", "ftdir", |