embed.fnc: Change s flag to S

autodoc.pl has the s flag in the '=for apidoc' lines mean something
completely different, but Devel::PPPort combines both these lines and
the contents of embed.fnc into one file, expecting the flags to be
consistent.

This commit changes the 's' in embed.fnc to be 'S', which means the
function is static and has an 'S_' prefix.  Changing embed.fnc keeps the
changes more contained, and lessens the chance that some module will be
adversely affected (I didn't see anything likely in grepping cpan).

1 files changed, 7 insertions, 7 deletions

diff --git a/regen/embed.pl b/regen/embed.pl
index 1d27c53866..bf7d726c94 100755
--- a/regen/embed.pl
+++ b/regen/embed.pl
@@ -51,7 +51,7 @@ sub full_name ($$) { # Returns the function name with potentially the
     my ($func, $flags) = @_;
 
     return "Perl_$func" if $flags =~ /p/;
-    return "S_$func" if $flags =~ /[si]/;
+    return "S_$func" if $flags =~ /[Si]/;
     return $func;
 }
 
@@ -81,7 +81,7 @@ my ($embed, $core, $ext, $api) = setup_embed();
 	}
 
 	my ($flags,$retval,$plain_func,@args) = @$_;
-        if ($flags =~ / ( [^AabDdEfiMmTOoPpRrsUWXx] ) /x) {
+        if ($flags =~ / ( [^AabDdEfiMmTOoPpRrSUWXx] ) /x) {
 	    die_at_end "flag $1 is not legal (for function $plain_func)";
 	}
 	my @nonnull;
@@ -99,17 +99,17 @@ my ($embed, $core, $ext, $api) = setup_embed();
 	    warn "It is nonsensical to require the return value of a void function ($plain_func) to be checked";
 	}
 
-	die_at_end "$plain_func: s flag is mutually exclusive from the i and p plags"
-					    if $flags =~ /s/ && $flags =~ /[ip]/;
+	die_at_end "$plain_func: S flag is mutually exclusive from the i and p plags"
+					    if $flags =~ /S/ && $flags =~ /[ip]/;
 
 	my $static_inline = 0;
-	if ($flags =~ /([si])/) {
+	if ($flags =~ /([Si])/) {
 	    my $type;
 	    if ($never_returns) {
-		$type = $1 eq 's' ? "PERL_STATIC_NO_RET" : "PERL_STATIC_INLINE_NO_RET";
+		$type = $1 eq 'S' ? "PERL_STATIC_NO_RET" : "PERL_STATIC_INLINE_NO_RET";
 	    }
 	    else {
-		$type = $1 eq 's' ? "STATIC" : "PERL_STATIC_INLINE";
+		$type = $1 eq 'S' ? "STATIC" : "PERL_STATIC_INLINE";
 	    }
 	    $retval = "$type $retval";
 	    die_at_end "Don't declare static function '$plain_func' pure" if $flags =~ /P/;