diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-03-23 16:23:58 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-03-23 16:23:58 +0000 |
| commit | 32454ac83bb27c6d3bda46277aef34deb91a6f4d (patch) | |
| tree | c76efb4c5a7431c104955bc69596925dc9fce33b /ext | |
| parent | 4ac6efe6a6c1b2863c78d1bdeea777d72325d712 (diff) | |
| download | perl-32454ac83bb27c6d3bda46277aef34deb91a6f4d.tar.gz | |
Unify 5.008 and 5.009's B::Concise 0.58
p4raw-id: //depot/perl@22566
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Concise.pm | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index b458259a47..67360d48ed 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) = @_; |