fix File::DosGlob for patterns with drive names like c:*.bat

[perl5.git] / opcode.h

diff --git a/opcode.h b/opcode.h
index c2bb457..7ff516b 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -388,9 +388,9 @@ EXT char *PL_op_desc[] = {
        "private value",
        "push regexp",
        "ref-to-glob cast",
-       "scalar deref",
+       "scalar dereference",
        "array length",
-       "subroutine deref",
+       "subroutine dereference",
        "anonymous subroutine",
        "subroutine prototype",
        "reference constructor",
@@ -1118,7 +1118,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
        MEMBER_TO_FPTR(Perl_ck_null),   /* srefgen */
        MEMBER_TO_FPTR(Perl_ck_fun),    /* ref */
        MEMBER_TO_FPTR(Perl_ck_fun),    /* bless */
-       MEMBER_TO_FPTR(Perl_ck_null),   /* backtick */
+       MEMBER_TO_FPTR(Perl_ck_open),   /* backtick */
        MEMBER_TO_FPTR(Perl_ck_glob),   /* glob */
        MEMBER_TO_FPTR(Perl_ck_null),   /* readline */
        MEMBER_TO_FPTR(Perl_ck_null),   /* rcatline */
@@ -1285,7 +1285,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
        MEMBER_TO_FPTR(Perl_ck_null),   /* dump */
        MEMBER_TO_FPTR(Perl_ck_null),   /* goto */
        MEMBER_TO_FPTR(Perl_ck_fun),    /* exit */
-       MEMBER_TO_FPTR(Perl_ck_fun),    /* open */
+       MEMBER_TO_FPTR(Perl_ck_open),   /* open */
        MEMBER_TO_FPTR(Perl_ck_fun),    /* close */
        MEMBER_TO_FPTR(Perl_ck_fun),    /* pipe_op */
        MEMBER_TO_FPTR(Perl_ck_fun),    /* fileno */
@@ -1477,7 +1477,7 @@ EXT U32 PL_opargs[] = {
        0x0001368c,     /* ref */
        0x00122804,     /* bless */
        0x00001608,     /* backtick */
-       0x00132808,     /* glob */
+       0x00012808,     /* glob */
        0x00001608,     /* readline */
        0x00001608,     /* rcatline */
        0x00002204,     /* regcmaybe */
@@ -1576,7 +1576,7 @@ EXT U32 PL_opargs[] = {
        0x0001368e,     /* lcfirst */
        0x0001368e,     /* uc */
        0x0001368e,     /* lc */
-       0x0001378e,     /* quotemeta */
+       0x0001368e,     /* quotemeta */
        0x00000248,     /* rv2av */
        0x00026c04,     /* aelemfast */
        0x00026404,     /* aelem */
@@ -1592,7 +1592,7 @@ EXT U32 PL_opargs[] = {
        0x00022800,     /* unpack */
        0x0004280d,     /* pack */
        0x00222808,     /* split */
-       0x0004290d,     /* join */
+       0x0004280d,     /* join */
        0x00004801,     /* list */
        0x00448400,     /* lslice */
        0x00004805,     /* anonlist */
@@ -1643,12 +1643,12 @@ EXT U32 PL_opargs[] = {
        0x00001a44,     /* dump */
        0x00001a44,     /* goto */
        0x00013644,     /* exit */
-       0x0132c81c,     /* open */
+       0x0052c81c,     /* open */
        0x0001d614,     /* close */
        0x000cc814,     /* pipe_op */
        0x0000d61c,     /* fileno */
        0x0001361c,     /* umask */
-       0x0000d604,     /* binmode */
+       0x0012c804,     /* binmode */
        0x0042e855,     /* tie */
        0x0000f614,     /* untie */
        0x0000f604,     /* tied */
@@ -1725,7 +1725,7 @@ EXT U32 PL_opargs[] = {
        0x0002291c,     /* link */
        0x0002291c,     /* symlink */
        0x0001368c,     /* readlink */
-       0x0002291c,     /* mkdir */
+       0x0012291c,     /* mkdir */
        0x0001379c,     /* rmdir */
        0x0002c814,     /* open_dir */
        0x0000d600,     /* readdir */