summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJan Dubois <jand@activestate.com>2012-07-18 15:47:44 -0700
committerJan Dubois <jand@activestate.com>2012-07-18 15:47:44 -0700
commit718fae11db6c340bc895e889eaa6ea254f846140 (patch)
treee7b280e39a867150337d4103b6c5d59cac4a2198
parent12a2785c7e86f586a05cad9ff90ce673c68c3115 (diff)
downloadperl-718fae11db6c340bc895e889eaa6ea254f846140.tar.gz
Fixup indentation
-rwxr-xr-xregen/embed.pl15
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;
}
}