Fix commented out function names in proto.h

From: "Jan Dubois" <jand@activestate.com>
Message-ID: <058b01c7c032$18a6a260$49f3e720$@com>

p4raw-id: //depot/perl@31546

1 files changed, 1 insertions, 1 deletions

diff --git a/embed.pl b/embed.pl
index 5718561dc6..f0af73cf08 100755
--- a/embed.pl
+++ b/embed.pl
@@ -178,7 +178,7 @@ sub write_protos {
 	}
 	else {
 	    $retval = "PERL_CALLCONV $splint_flags$retval";
-	    if ($flags =~ /p/) {
+	    if ($flags =~ /[bp]/) {
 		$func = "Perl_$func";
 	    }
 	}