summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSteffen Mueller <smueller@cpan.org>2013-05-22 22:00:48 +0200
committerSteffen Mueller <smueller@cpan.org>2013-06-25 08:00:25 +0200
commitcfba0fa69b3193a387b145b99a90822200b459be (patch)
tree555701fa32a301710a8f4496a0cdf1b8e4d53d57
parent42dec8cfd2525f918d33c27c30c864005682b786 (diff)
downloadperl-cfba0fa69b3193a387b145b99a90822200b459be.tar.gz
EU::ParseXS: Cosmetics; better variable naming
-rw-r--r--dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm14
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 {