Add the missing ${^OPEN} hints flag to B::Concise

p4raw-id: //depot/perl@28353

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 0633edb..d864fe5 100644 (file)
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -624,8 +624,8 @@ our %hints; # used to display each COP's op_hints values
 @hints{2,512,1024} = ('$', '&', '*');
 # integers, locale, bytes, arybase
 @hints{1,4,8,16,32} = ('i', 'l', 'b', '[');
-# block scope, localise %^H
-@hints{256,131072} = ('{','%');
+# block scope, localise %^H, $^OPEN
+@hints{256,131072,262144} = ('{','%','<');
 # overload new integer, float, binary, string, re
 @hints{4096,8192,16384,32768,65536} = ('I', 'F', 'B', 'S', 'R');
 # taint and eval