On Wed, Oct 15, 2008 at 01:39:32PM -0700, [EMAIL PROTECTED] wrote:
> - if $<name> {
> + my $name := $<name>;
> + if $name {
> [...]
> - PAST::Val.new( :value(~$<name>[0]) )
> + PAST::Val.new( :value(~$name[0]) )
> [...]
> - PAST::Val.new( :value("$!" ~ ~$<name>[0]) ),
> + PAST::Val.new( :value("$!" ~ ~$name[0]) ),
> [...]
> - PAST::Val.new( :value(~$<name>[0]) ),
> - make_accessor($/, undef, "$!" ~ ~$<name>[0], 1, 'attribute')
> + PAST::Val.new( :value(~$name[0]) ),
> + make_accessor($/, undef, "$!" ~ ~$name[0], 1, 'attribute')
> ...
Instead of setting
my $name := $<name>;
would this still work if we set it to
my $name := ~$<name>[0];
and then avoid the subscript and stringification in each use of
$name later?
Pm
