B::clearsym

[p5sagit/p5-mst-13.2.git] / opcode.h

diff --git a/opcode.h b/opcode.h
index 7ca8d48..9527638 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -1234,7 +1234,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
        Perl_ck_fun,    /* unpack */
        Perl_ck_fun,    /* pack */
        Perl_ck_split,  /* split */
-       Perl_ck_fun,    /* join */
+       Perl_ck_join,   /* join */
        Perl_ck_null,   /* list */
        Perl_ck_null,   /* lslice */
        Perl_ck_fun,    /* anonlist */