Skip to content

Commit 29e2be5

Browse files
author
Reini Urban
committed
0.04 release
1 parent 32ecb2b commit 29e2be5

File tree

2 files changed

+7
-4
lines changed

2 files changed

+7
-4
lines changed

Changes

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,11 @@
11
Revision 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

610
0.03_03 2011-08-18 rurban
711
- replace failing Hook::Scope::POST with

lib/optimize.pm

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ use B::Utils qw(walkallops_simple);
77
use B qw(OPf_KIDS OPf_MOD OPf_PARENS OPf_WANT_SCALAR OPf_STACKED);
88
use Attribute::Handlers;
99

10-
our $VERSION = "0.03_04";
10+
our $VERSION = "0.04";
1111

1212
our $DEBUG = 0;
1313
our %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;

0 commit comments

Comments
 (0)