S_scan_ident: Comments, refactor some; fix bugs

embed.fnc

@@ -6194,7 +6194,7 @@ RS	|char * |scan_heredoc	|NN char *s
 S	|char * |scan_ident	|NN char *s				\
 				|SPTR char *dest			\
 				|EPTR char *dest_end			\
-				|bool chk_unary
+				|U32 flags
 RS	|char * |scan_inputsymbol					\
 				|NN char *start
 RS	|char * |scan_pat	|NN char *start 			\

regen/unicode_constants.pl

@@ -1039,6 +1039,7 @@ END
 
 U+10FFFF string MAX_UNICODE
 
+SHY native
 NBSP native
 NBSP string
 

t/comp/parser.t

@@ -8,7 +8,7 @@ BEGIN {
     chdir 't' if -d 't';
 }
 
-print "1..192\n";
+print "1..193\n";
 
 sub failed {
     my ($got, $expected, $name) = @_;
@@ -673,6 +673,18 @@ is $@, "", 'substr keys assignment';
     is ($@, "", "Handles all numeric package component after ::");
 }
 
+{
+    my $expected = "this is the way the identifier ends; not with a bang";
+    my $result;
+    eval "use utf8; my \$e\x{1df8}claire = '$expected'; \$result = \${e\x{1df8}claire}";
+    if ($@) {
+        failed($@, "no error", "Didn't crash");
+    }
+    else {
+        is ($result, $expected, "Parser can handle a continuation as 2nd char");
+    }
+}
+
 # Add new tests HERE (above this line)
 
 # bug #74022: Loop on characters in \p{OtherIDContinue}