Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Unbreak has $.a
  • Loading branch information
sorear committed Jul 25, 2010
1 parent 0357b1d commit 607036c
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions Op.pm
Expand Up @@ -595,14 +595,14 @@ use CgOp;
my @r;
push @r, Decl::Attribute->new(name => $self->name);
if ($self->accessor) {
push @r, Decl::Sub->new(var => $self->name . '!a',
push @r, Decl::Sub->new(var => ($self->name . '!a'),
code => Body->new(
name => $self->name,
signature => Sig->new(params => [])->for_method,
type => 'sub',
do => Op::GetSlot->new(
object => Op::Lexical->new(name => "self"),
slot => $self->name)));
name => $self->name)));
push @r, Decl::HasMethod->new(name => $self->name,
var => $self->name . '!a');
}
Expand Down

0 comments on commit 607036c

Please sign in to comment.