This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Indentation fix
authorJames E. Keenan <jkeenan@cpan.org>
Sat, 27 Mar 2010 01:24:07 +0000 (21:24 -0400)
committerSteffen Mueller <smueller@cpan.org>
Tue, 12 Jul 2011 18:53:52 +0000 (20:53 +0200)
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm

index 07dc252..2faaeac 100644 (file)
@@ -1886,9 +1886,9 @@ sub generate_output {
     my $expr = $output_expr{$type_kind{$type}};
     if ($expr =~ /DO_ARRAY_ELEM/) {
       blurt("Error: '$subtype' not in typemap"), return
-    unless defined($type_kind{$subtype});
+        unless defined($type_kind{$subtype});
       blurt("Error: No OUTPUT definition for type '$subtype', typekind '$type_kind{$subtype}' found"), return
-    unless defined $output_expr{$type_kind{$subtype}};
+        unless defined $output_expr{$type_kind{$subtype}};
       my $subexpr = $output_expr{$type_kind{$subtype}};
       $subexpr =~ s/ntype/subtype/g;
       $subexpr =~ s/\$arg/ST(ix_$var)/g;