summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJames E. Keenan <jkeenan@cpan.org>2010-04-03 09:05:13 -0400
committerSteffen Mueller <smueller@cpan.org>2011-07-12 20:53:54 +0200
commit197a5a3301d49dd81e1b487ae8ee4cced7b6ec3b (patch)
tree5640b29a6300a975f5e1850cfe2b23e2cf4f8d4c
parentffd4b99c2d643b501601d5049138da460e722823 (diff)
downloadperl-197a5a3301d49dd81e1b487ae8ee4cced7b6ec3b.tar.gz
Typographical cleanup
Mostly elimination of trailing whitespace.
-rw-r--r--dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
index 1d725aebab..0a53c4cff7 100644
--- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
+++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
@@ -33,7 +33,7 @@ $VERSION = eval $VERSION if $VERSION =~ /_/;
# them into $self led to build problems. In most cases, strings being
# 'eval'-ed contain the variables' names hard-coded.
our (
- $FH, $Package, $func_name, $Full_func_name, $Packid, $pname, $ALIAS,
+ $FH, $Package, $func_name, $Full_func_name, $Packid, $pname, $ALIAS,
);
our $self = {};
@@ -784,20 +784,20 @@ EOF
# <i> <> <(IV)$var>
my $var = 'RETVAL';
my $type = $self->{ret_type};
-
+
# 0: type, 1: with_size, 2: how, 3: how_size
if ($t and not $t->[1] and $t->[0] eq 'p') {
# PUSHp corresponds to setpvn. Treate setpv directly
my $what = eval qq("$t->[2]");
warn $@ if $@;
-
+
print "\tsv_setpv(TARG, $what); XSprePUSH; PUSHTARG;\n";
$prepush_done = 1;
}
elsif ($t) {
my $what = eval qq("$t->[2]");
warn $@ if $@;
-
+
my $tsize = $t->[3];
$tsize = '' unless defined $tsize;
$tsize = eval qq("$tsize");
@@ -900,7 +900,7 @@ EOF
}
push @{ $self->{proto_arg} }, "$s\@"
if $ellipsis;
-
+
$self->{proto} = join ("", grep defined, @{ $self->{proto_arg} } );
}
else {
@@ -1150,7 +1150,7 @@ sub INPUT_handler {
# Check for duplicate definitions
blurt ("Error: duplicate definition of argument '$var_name' ignored"), next
if $self->{arg_list}->{$var_name}++
- or defined $self->{argtype_seen}->{$var_name} and not $self->{processing_arg_with_types};
+ or defined $self->{argtype_seen}->{$var_name} and not $self->{processing_arg_with_types};
$self->{thisdone} |= $var_name eq "THIS";
$self->{retvaldone} |= $var_name eq "RETVAL";