S_scan_ident: Convert parameter to bool

All calls to it set it to TRUE or FALSE

Author: khwilliamson

embed.fnc

@@ -6054,7 +6054,7 @@ S	|int	|ao		|int toketype
 S	|void	|checkcomma	|NN const char *s			\
 				|NN const char *name			\
 				|NN const char *what
-S	|void	|check_uni
+S	|void	|check_unary
 RS	|char * |filter_gets	|NN SV *sv				\
 				|STRLEN append
 RS	|HV *	|find_in_my_stash					\
@@ -6111,7 +6111,7 @@ RS	|char * |scan_heredoc	|NN char *s
 S	|char * |scan_ident	|NN char *s				\
 				|NN char *dest				\
 				|NN char *dest_end			\
-				|I32 ck_uni
+				|bool chk_unary
 RS	|char * |scan_inputsymbol					\
 				|NN char *start
 RS	|char * |scan_pat	|NN char *start 			\

embed.h

@@ -1671,7 +1671,7 @@
 #   endif
 #   if defined(PERL_IN_TOKE_C)
 #     define ao(a)                              S_ao(aTHX_ a)
-#     define check_uni()                        S_check_uni(aTHX)
+#     define check_unary()                      S_check_unary(aTHX)
 #     define checkcomma(a,b,c)                  S_checkcomma(aTHX_ a,b,c)
 #     define filter_gets(a,b)                   S_filter_gets(aTHX_ a,b)
 #     define find_in_my_stash(a,b)              S_find_in_my_stash(aTHX_ a,b)

proto.h

@@ -10378,8 +10378,10 @@ Perl_scan_word(pTHX_ char *s, char *dest, char * dest_end, int allow_package, ST
  * specific variable name.
  */
 STATIC char *
-S_scan_ident(pTHX_ char *s, char *dest, char *dest_end, I32 chk_unary)
+S_scan_ident(pTHX_ char *s, char *dest, char *dest_end, bool chk_unary)
 {
+    PERL_ARGS_ASSERT_SCAN_IDENT;
+
     I32 herelines = PL_parser->herelines;
     SSize_t bracket = -1;
     char funny = *s++;
@@ -10388,8 +10390,6 @@ S_scan_ident(pTHX_ char *s, char *dest, char *dest_end, I32 chk_unary)
     bool is_utf8 = cBOOL(UTF);
     line_t orig_copline = 0, tmp_copline = 0;
 
-    PERL_ARGS_ASSERT_SCAN_IDENT;
-
     if (isSPACE(*s) || !*s)
         s = skipspace(s);
     if (isDIGIT(*s)) { /* handle $0 and $1 $2 and $10 and etc */