[svn:parrot] r41629 - branches/pcc_reapply/lib/Parrot/Pmc2c

[mikehh at svn.parrot.org]

Author: mikehh
Date: Sat Oct  3 03:53:01 2009
New Revision: 41629
URL: https://trac.parrot.org/parrot/changeset/41629

Log:
fix some codetest errors - trailing whitespace and cuddled else

Modified:
   branches/pcc_reapply/lib/Parrot/Pmc2c/Method.pm

Modified: branches/pcc_reapply/lib/Parrot/Pmc2c/Method.pm
==============================================================================
--- branches/pcc_reapply/lib/Parrot/Pmc2c/Method.pm	Sat Oct  3 02:25:07 2009	(r41628)
+++ branches/pcc_reapply/lib/Parrot/Pmc2c/Method.pm	Sat Oct  3 03:53:01 2009	(r41629)
@@ -165,7 +165,7 @@
     my $return_type_char = $self->trans($return_type);
     my $sig              = join ('', map { $self->trans($_) } @{$types}) .
                            '->';
-    
+
     my $result_decl    = '';
     my $return_stmt    = '';
 
@@ -173,7 +173,8 @@
         $return_stmt = "return ($return_type) NULL;" if $return_type_char =~ /P|I|S|V/;
         $return_stmt = 'return (FLOATVAL) 0;'        if $return_type_char =~ /N/;
         $return_stmt = 'return;'                     if $return_type_char =~ /v/;
-    } else {
+    }
+    else {
         $result_decl = "$return_type result;";
         $args .= ', &result';
         $sig .= $return_type_char;