From 3324ed9f6472f4fa8368f84762b440be0b7392b0 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 10 Sep 2011 22:26:29 -0700 Subject: [PATCH] Teach B::Concise about OPpFT_STACKING --- ext/B/B/Concise.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 99d76af..8ab7e00 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", -- 1.8.3.1