Unicode labels are still valid

But can only be exercised if you don't have to jump into a construct to
get to them.

Author: jkeenan

t/uni/labels.t

@@ -16,7 +16,7 @@ use feature qw 'unicode_strings evalbytes';
 
 use charnames qw( :full );
 
-plan(10);
+plan(11);
 
 ＬＡＢＥＬ: {
     pass("Sanity check, UTF-8 labels don't throw a syntax error.");
@@ -89,3 +89,11 @@ is $d, 0, "Latin-1 labels are reachable";
         qr/Use of goto to jump into a construct is no longer permitted/,
         "Got expected error message");
 }
+
+{
+    goto ここ;
+
+    ここ: {
+        pass("UTF-8 labels are still valid, but you can no longer jump into a construct");
+    }
+}