diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-11-02 17:10:37 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-11-08 17:55:50 -0800 |
commit | eecd355e30ad4eda87ce630d5a2a829af855d0a2 (patch) | |
tree | d5426f7e4dd189880164e3de7c416751f2ea722c /ext/B | |
parent | 17412180378fef6f7c7ee7d014f76f84c38ff202 (diff) | |
download | perl-eecd355e30ad4eda87ce630d5a2a829af855d0a2.tar.gz |
Teach B::Concise about VMS hushed flag
Diffstat (limited to 'ext/B')
-rw-r--r-- | ext/B/B/Concise.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 01769facf1..542bfa2522 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -645,7 +645,7 @@ $priv{reverse}{8} = "INPLACE"; $priv{threadsv}{64} = "SVREFd"; @{$priv{$_}}{16,32,64,128} = qw(INBIN INCR OUTBIN OUTCR) for qw(open backtick); -$priv{exit}{128} = "VMS"; +@{$priv{exit}}{64,128} = qw(HUSH VMS); $priv{$_}{2} = "FTACCESS" for qw(ftrread ftrwrite ftrexec fteread ftewrite fteexec); @{$priv{entereval}}{2,4,8,16} = qw(HAS_HH UNI BYTES COPHH); |