Unify 5.008 and 5.009's B::Concise 0.58

p4raw-id: //depot/perl@22566

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index b458259..67360d4 100644 (file)
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -478,14 +478,18 @@ $priv{"threadsv"}{64} = "SVREFd";
 $priv{"exit"}{128} = "VMS";
 $priv{$_}{2} = "FTACCESS"
   for ("ftrread", "ftrwrite", "ftrexec", "fteread", "ftewrite", "fteexec");
-$priv{$_}{4} = "FTSTACKED"
-  for ("ftrread", "ftrwrite", "ftrexec", "fteread", "ftewrite", "fteexec",
-       "ftis", "fteowned", "ftrowned", "ftzero", "ftsize", "ftmtime",
-       "ftatime", "ftctime", "ftsock", "ftchr", "ftblk", "ftfile", "ftdir",
-       "ftpipe", "ftlink", "ftsuid", "ftsgid", "ftsvtx", "fttty", "fttext",
-       "ftbinary");
-$priv{$_}{2} = "GREPLEX"
-  for ("mapwhile", "mapstart", "grepwhile", "grepstart");
+if ($] >= 5.009) {
+  # Stacked filetests are post 5.8.x
+  $priv{$_}{4} = "FTSTACKED"
+    for ("ftrread", "ftrwrite", "ftrexec", "fteread", "ftewrite", "fteexec",
+         "ftis", "fteowned", "ftrowned", "ftzero", "ftsize", "ftmtime",
+        "ftatime", "ftctime", "ftsock", "ftchr", "ftblk", "ftfile", "ftdir",
+        "ftpipe", "ftlink", "ftsuid", "ftsgid", "ftsvtx", "fttty", "fttext",
+        "ftbinary");
+  # Lexical $_ is post 5.8.x
+  $priv{$_}{2} = "GREPLEX"
+    for ("mapwhile", "mapstart", "grepwhile", "grepstart");
+}
 
 sub private_flags {
     my($name, $x) = @_;