Teach B::Concise about UTF8 labels

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 7ec9b74..6d4b831 100644 (file)
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -664,6 +664,7 @@ if ($] >= 5.009) {
 }
 $priv{$_}{128} = '+1' for qw "caller wantarray runcv";
 @{$priv{coreargs}}{1,2,64,128} = ('DREF1','DREF2','$MOD','MARK');
+$priv{$_}{128} = 'UTF' for qw "last redo next goto dump";
 
 our %hints; # used to display each COP's op_hints values