This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add the new private flag OPpGREP_LEX in B::Concise.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 8 Feb 2004 21:34:27 +0000 (21:34 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 8 Feb 2004 21:34:27 +0000 (21:34 +0000)
p4raw-id: //depot/perl@22290

ext/B/B/Concise.pm

index 57aa6fd..7aadd0b 100644 (file)
@@ -14,7 +14,7 @@ use warnings; # uses #3 and #4, since warnings uses Carp
 
 use Exporter (); # use #5
 
-our $VERSION   = "0.57";
+our $VERSION   = "0.58";
 our @ISA       = qw(Exporter);
 our @EXPORT_OK = qw(set_style set_style_standard add_callback
                    concise_subref concise_cv concise_main);
@@ -423,6 +423,8 @@ $priv{"threadsv"}{64} = "SVREFd";
 $priv{"exit"}{128} = "VMS";
 $priv{$_}{2} = "FTACCESS"
   for ("ftrread", "ftrwrite", "ftrexec", "fteread", "ftewrite", "fteexec");
+$priv{$_}{2} = "GREPLEX"
+  for ("mapwhile", "mapstart", "grepwhile", "grepstart");
 
 sub private_flags {
     my($name, $x) = @_;