Teach B::Concise about VMS hushed flag

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 01769fa..542bfa2 100644 (file)
--- 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);