Update B::Concise for the exit->nextstate hush hint move
authorFather Chrysostomos <sprout@cpan.org>
Thu, 7 Nov 2013 14:02:46 +0000 (06:02 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 9 Nov 2013 01:55:51 +0000 (17:55 -0800)
ext/B/B/Concise.pm

index 542bfa2..12f37d3 100644 (file)
@@ -645,7 +645,8 @@ $priv{reverse}{8} = "INPLACE";
 $priv{threadsv}{64} = "SVREFd";
 @{$priv{$_}}{16,32,64,128} = qw(INBIN INCR OUTBIN OUTCR)
   for qw(open backtick);
-@{$priv{exit}}{64,128} = qw(HUSH VMS);
+$priv{$_}{32} = "HUSH" for qw(nextstate dbstate);
+$priv{exit}{128} = "VMS";
 $priv{$_}{2} = "FTACCESS"
   for qw(ftrread ftrwrite ftrexec fteread ftewrite fteexec);
 @{$priv{entereval}}{2,4,8,16} = qw(HAS_HH UNI BYTES COPHH);