Index: languages/perl6/src/pmc/perl6multisub.pmc
===================================================================
--- languages/perl6/src/pmc/perl6multisub.pmc	（版本 35577）
+++ languages/perl6/src/pmc/perl6multisub.pmc	（工作副本）
@@ -214,6 +214,8 @@
 Takes two candidates and determines if the first one is narrower than the
 second. Returns a true value if they are.
 
+=cut
+
 */
 static INTVAL is_narrower(PARROT_INTERP, candidate_info *a, candidate_info *b) {
     STRING *ACCEPTS = CONST_STRING(interp, "ACCEPTS");
@@ -266,6 +268,8 @@
 Takes a ResizablePMCArray of the candidates, collects information about them
 and then does a topological sort of them.
 
+=cut
+
 */
 static candidate_info** sort_candidiates(PARROT_INTERP, PMC *candidates, PMC **proto_out) {
     INTVAL i, j, sig_elems, candidates_to_sort, result_pos;
@@ -430,6 +434,8 @@
 or throws an error saying that the dispatch failed if there were no
 candidates or that it was ambiguous if there were tied candidates.
 
+=cut
+
 */
 
 static PMC* do_dispatch(PARROT_INTERP, candidate_info **candidates, PMC *proto,
@@ -641,6 +647,8 @@
 Checks if a PMC is invokable; returns a true value if so and a false value if
 not.
 
+=cut
+
 */
 static int check_invokable(PARROT_INTERP, PMC *value) {
     STRING * const _sub = CONST_STRING(interp, "Sub");
@@ -893,6 +901,8 @@
 
 Marks the candidate list.
 
+=cut
+
 */
     VTABLE void mark() {
         PMC *candidates;
Index: src/pmc/parrotrunningthread.pmc
===================================================================
--- src/pmc/parrotrunningthread.pmc	（版本 35577）
+++ src/pmc/parrotrunningthread.pmc	（工作副本）
@@ -82,6 +82,8 @@
 
 Change the thread ID we refer to to C<new_tid>.
 
+=cut
+
 */
 
     VTABLE void set_integer_native(INTVAL new_tid) {