Skip to content

Commit

Permalink
0.04 release
Browse files Browse the repository at this point in the history
  • Loading branch information
Reini Urban committed Sep 7, 2011
1 parent 32ecb2b commit 29e2be5
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 4 deletions.
6 changes: 5 additions & 1 deletion Changes
Original file line number Diff line number Diff line change
@@ -1,7 +1,11 @@
Revision history for Perl extension optimize

0.03_04 2011-08-19 rurban
0.04 2011-09-07 rurban
- remove B::Hooks::EndOfScope::on_scope_end dependency, not needed
- fix threaded (const PV->GV): tests pass now, only some older perls fail.
- remove unneeded Build.PL and META.yml
- dbgprint rewordings,
- adjust t/02-register.t for testcover

0.03_03 2011-08-18 rurban
- replace failing Hook::Scope::POST with
Expand Down
5 changes: 2 additions & 3 deletions lib/optimize.pm
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@ use B::Utils qw(walkallops_simple);
use B qw(OPf_KIDS OPf_MOD OPf_PARENS OPf_WANT_SCALAR OPf_STACKED);
use Attribute::Handlers;

our $VERSION = "0.03_04";
our $VERSION = "0.04";

our $DEBUG = 0;
our %pads;
Expand Down Expand Up @@ -67,8 +67,7 @@ use optimizer "extend-c" => sub {
#dbgprint "method: ", $op->next->next->next->next->next->next->name,":",
# $op->next->next->next->next->next->next->sv->sv, "\n";
if ($op->next->next->next->next->next->next->sv->sv eq 'import') {
my $attribute = $op->next->next->next->next->next->sv->sv;
dbgprint "my const $attribute\n"; # fails threaded

# Here we establish that this is an use of attributes on lexicals
# however we want to establish what attribute it is
my $attribute = $op->next->next->next->next->next->sv->sv;
Expand Down

0 comments on commit 29e2be5

Please sign in to comment.