From: Father Chrysostomos <sprout@cpan.org>
Date: Sun, 11 Sep 2011 05:26:29 +0000 (-0700)
Subject: Teach B::Concise about OPpFT_STACKING
X-Git-Tag: v5.15.3~141
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/3324ed9f6472f4fa8368f84762b440be0b7392b0?hp=d06f995a661736bdc3bcf46d33aaa5c4057cad49

Teach B::Concise about OPpFT_STACKING
---

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",