diff options
author | Jan Dubois <jand@activestate.com> | 2012-07-18 15:47:44 -0700 |
---|---|---|
committer | Jan Dubois <jand@activestate.com> | 2012-07-18 15:47:44 -0700 |
commit | 718fae11db6c340bc895e889eaa6ea254f846140 (patch) | |
tree | e7b280e39a867150337d4103b6c5d59cac4a2198 /regen | |
parent | 12a2785c7e86f586a05cad9ff90ce673c68c3115 (diff) | |
download | perl-718fae11db6c340bc895e889eaa6ea254f846140.tar.gz |
Fixup indentation
Diffstat (limited to 'regen')
-rwxr-xr-x | regen/embed.pl | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/regen/embed.pl b/regen/embed.pl index 33967c984e..9f8a07af30 100755 --- a/regen/embed.pl +++ b/regen/embed.pl @@ -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; } } |