This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add the missing ${^OPEN} hints flag to B::Concise
authorNicholas Clark <nick@ccl4.org>
Mon, 5 Jun 2006 21:38:38 +0000 (21:38 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 5 Jun 2006 21:38:38 +0000 (21:38 +0000)
p4raw-id: //depot/perl@28353

ext/B/B/Concise.pm

index 0633edb..d864fe5 100644 (file)
@@ -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