In perl.git, the branch sprout/vmsish has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/ff80eea10ceb19fc4c4b4f10c9b17f8ab65cd78b?hp=6523874d0ff429f7cdba5c09e662cb4321debe1a>
- Log -----------------------------------------------------------------
commit ff80eea10ceb19fc4c4b4f10c9b17f8ab65cd78b
Author: Father Chrysostomos <spr...@cpan.org>
Date: Thu Nov 7 06:02:46 2013 -0800
Update B::Concise for the exit->nextstate hush hint move
-----------------------------------------------------------------------
Summary of changes:
ext/B/B/Concise.pm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 3a2b05b..2c5f64c 100644
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -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);
--
Perl5 Master Repository
