From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 23 Mar 2004 16:23:58 +0000 (+0000)
Subject: Unify 5.008 and 5.009's B::Concise 0.58
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=32454ac83bb27c6d3bda46277aef34deb91a6f4d;hp=4ac6efe6a6c1b2863c78d1bdeea777d72325d712;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) = @_;