From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 5 Jun 2006 21:38:38 +0000 (+0000)
Subject: Add the missing ${^OPEN} hints flag to B::Concise
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=34b5ca21700e31f4fcb9c4a0e3c6cc24b610007f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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