From: James E. Keenan <jkeenan@cpan.org>
Date: Sat, 3 Apr 2010 13:05:13 +0000 (-0400)
Subject: Typographical cleanup
X-Git-Tag: accepted/trunk/20130322.191538~3330^2~98
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=197a5a3301d49dd81e1b487ae8ee4cced7b6ec3b;p=platform%2Fupstream%2Fperl.git

Typographical cleanup

Mostly elimination of trailing whitespace.
---

diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
index 1d725ae..0a53c4c 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";