From fef4c52051113bd46321354d9557a9f9d6a6b092 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Sun, 22 Apr 2012 20:00:14 -0700
Subject: Teach B::Concise about UTF8 labels

---
 ext/B/B/Concise.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'ext')

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 7ec9b74512..6d4b831862 100644
--- 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
 
-- 
cgit v1.2.1