diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-06-05 21:38:38 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-06-05 21:38:38 +0000 |
| commit | 34b5ca21700e31f4fcb9c4a0e3c6cc24b610007f (patch) | |
| tree | d4a0ecf1d83e48113f31e1b3ac7c72b1b84aed0c /ext/B | |
| parent | 822502e5e1ee67853c76322faa5c660c9f9a49da (diff) | |
| download | perl-34b5ca21700e31f4fcb9c4a0e3c6cc24b610007f.tar.gz | |
Add the missing ${^OPEN} hints flag to B::Concise
p4raw-id: //depot/perl@28353
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Concise.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 0633edb4d8..d864fe5a0f 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 |