diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-19 23:04:04 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-25 09:42:18 -0700 |
| commit | e664e0a4d2b36e9c34f1d617414f811f59792c9b (patch) | |
| tree | d0cf3516ea5009248447dd1a259dedb25a0756b4 /ext | |
| parent | 6f7909da0803ea57fc3ae261b2432fb52ee9309c (diff) | |
| download | perl-e664e0a4d2b36e9c34f1d617414f811f59792c9b.tar.gz | |
Add private coreargs flags for vivifying GVs
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Concise.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 0df5e426cf..cc0e05239a 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -14,7 +14,7 @@ use warnings; # uses #3 and #4, since warnings uses Carp use Exporter (); # use #5 -our $VERSION = "0.85"; +our $VERSION = "0.86"; our @ISA = qw(Exporter); our @EXPORT_OK = qw( set_style set_style_standard add_callback concise_subref concise_cv concise_main @@ -661,6 +661,7 @@ if ($] >= 5.009) { for ("mapwhile", "mapstart", "grepwhile", "grepstart"); } $priv{$_}{128} = '+1' for qw "caller wantarray"; +@{$priv{coreargs}}{1,2} = ('DREF1','DREF2'); our %hints; # used to display each COP's op_hints values |