File tree Expand file tree Collapse file tree 2 files changed +7
-4
lines changed Expand file tree Collapse file tree 2 files changed +7
-4
lines changed Original file line number Diff line number Diff line change 11Revision history for Perl extension optimize
22
3- 0.03_04 2011-08-19 rurban
3+ 0.04 2011-09-07 rurban
44 - remove B::Hooks::EndOfScope::on_scope_end dependency, not needed
5+ - fix threaded (const PV->GV): tests pass now, only some older perls fail.
6+ - remove unneeded Build.PL and META.yml
7+ - dbgprint rewordings,
8+ - adjust t/02-register.t for testcover
59
6100.03_03 2011-08-18 rurban
711 - replace failing Hook::Scope::POST with
Original file line number Diff line number Diff line change @@ -7,7 +7,7 @@ use B::Utils qw(walkallops_simple);
77use B qw( OPf_KIDS OPf_MOD OPf_PARENS OPf_WANT_SCALAR OPf_STACKED) ;
88use Attribute::Handlers;
99
10- our $VERSION = " 0.03_04 " ;
10+ our $VERSION = " 0.04 " ;
1111
1212our $DEBUG = 0;
1313our %pads ;
@@ -67,8 +67,7 @@ use optimizer "extend-c" => sub {
6767 # dbgprint "method: ", $op->next->next->next->next->next->next->name,":",
6868 # $op->next->next->next->next->next->next->sv->sv, "\n";
6969 if ($op -> next-> next-> next-> next-> next-> next-> sv-> sv eq ' import' ) {
70- my $attribute = $op -> next-> next-> next-> next-> next-> sv-> sv;
71- dbgprint " my const $attribute \n " ; # fails threaded
70+
7271 # Here we establish that this is an use of attributes on lexicals
7372 # however we want to establish what attribute it is
7473 my $attribute = $op -> next-> next-> next-> next-> next-> sv-> sv;
You can’t perform that action at this time.
0 commit comments