This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fixup indentation
authorJan Dubois <jand@activestate.com>
Wed, 18 Jul 2012 22:47:44 +0000 (15:47 -0700)
committerJan Dubois <jand@activestate.com>
Wed, 18 Jul 2012 22:47:44 +0000 (15:47 -0700)
regen/embed.pl

index 33967c9..9f8a07a 100755 (executable)
@@ -92,13 +92,16 @@ my ($embed, $core, $ext, $api) = setup_embed();
            $func = "S_$plain_func";
        }
        else {
-        if($never_returns){
-           $retval = "PERL_CALLCONV_NO_RET $splint_flags$retval";
-        }else{
-        $retval = "PERL_CALLCONV $splint_flags$retval";
-        }if ($flags =~ /[bp]/) {
+           if ($never_returns) {
+               $retval = "PERL_CALLCONV_NO_RET $splint_flags$retval";
+           }
+           else {
+               $retval = "PERL_CALLCONV $splint_flags$retval";
+           }
+           if ($flags =~ /[bp]/) {
                $func = "Perl_$plain_func";
-           } else {
+           }
+           else {
                $func = $plain_func;
            }
        }