Must not hide the protos, though.

p4raw-id: //depot/perl@18871

1 files changed, 2 insertions, 2 deletions

diff --git a/embed.pl b/embed.pl
index f996925a51..f734764590 100755
--- a/embed.pl
+++ b/embed.pl
@@ -156,7 +156,7 @@ sub write_protos {
     }
     else {
 	my ($flags,$retval,$func,@args) = @_;
-	$ret .= '/* ' if $flags =~ /[mX]/;
+	$ret .= '/* ' if $flags =~ /m/;
 	if ($flags =~ /s/) {
 	    $retval = "STATIC $retval";
 	    $func = "S_$func";
@@ -189,7 +189,7 @@ sub write_protos {
 	    $ret .= "\n#endif\n";
 	}
 	$ret .= ";";
-	$ret .= ' */' if $flags =~ /[mX]/;
+	$ret .= ' */' if $flags =~ /m/;
 	$ret .= "\n";
     }
     $ret;