diff options
author | Steffen Mueller <smueller@cpan.org> | 2013-05-22 22:00:48 +0200 |
---|---|---|
committer | Steffen Mueller <smueller@cpan.org> | 2013-06-25 08:00:25 +0200 |
commit | cfba0fa69b3193a387b145b99a90822200b459be (patch) | |
tree | 555701fa32a301710a8f4496a0cdf1b8e4d53d57 /dist/ExtUtils-ParseXS/lib | |
parent | 42dec8cfd2525f918d33c27c30c864005682b786 (diff) | |
download | perl-cfba0fa69b3193a387b145b99a90822200b459be.tar.gz |
EU::ParseXS: Cosmetics; better variable naming
Diffstat (limited to 'dist/ExtUtils-ParseXS/lib')
-rw-r--r-- | dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm index e26a036259..891d18c1e0 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm @@ -705,33 +705,33 @@ EOF } elsif ($self->{gotRETVAL} || $wantRETVAL) { my $outputmap = $self->{typemap}->get_outputmap( ctype => $self->{ret_type} ); - my $t = $self->{optimize} && $outputmap && $outputmap->targetable; + my $trgt = $self->{optimize} && $outputmap && $outputmap->targetable; my $var = 'RETVAL'; my $type = $self->{ret_type}; - if ($t and not $t->{with_size} and $t->{type} eq 'p') { + if ($trgt and not $trgt->{with_size} and $trgt->{type} eq 'p') { # PUSHp corresponds to setpvn. Treat setpv directly my $what = $self->eval_output_typemap_code( - qq("$t->{what}"), + qq("$trgt->{what}"), {var => $var, type => $self->{ret_type}} ); print "\tsv_setpv(TARG, $what); XSprePUSH; PUSHTARG;\n"; $prepush_done = 1; } - elsif ($t) { + elsif ($trgt) { my $what = $self->eval_output_typemap_code( - qq("$t->{what}"), + qq("$trgt->{what}"), {var => $var, type => $self->{ret_type}} ); - my $tsize = $t->{what_size}; + my $tsize = $trgt->{what_size}; $tsize = '' unless defined $tsize; $tsize = $self->eval_output_typemap_code( qq("$tsize"), {var => $var, type => $self->{ret_type}} ); - print "\tXSprePUSH; PUSH$t->{type}($what$tsize);\n"; + print "\tXSprePUSH; PUSH$trgt->{type}($what$tsize);\n"; $prepush_done = 1; } else { |