patch 9.2.0141: :perl ex commands allowed in restricted mode

Problem:  :perl ex commands allowed in restricted mode (pyllyukko)
Solution: Add EX_RESTRICT flag to :perldo/:perl command definition.

closes: #19653

Signed-off-by: Christian Brabandt <cb@256bit.org>

diff --git a/src/ex_cmds.h b/src/ex_cmds.h
index f51f584e05fdf395f304702bf00018a48e67bf0b..7613d18aa15b9cb440a3e0550140dccd1d77634f 100644 (file)
--- a/src/ex_cmds.h
+++ b/src/ex_cmds.h
@@ -1158,10 +1158,10 @@ EXCMD(CMD_pclose,       "pclose",       ex_pclose,
        EX_BANG|EX_TRLBAR,
        ADDR_NONE),
 EXCMD(CMD_perl,                "perl",         ex_perl,
-       EX_RANGE|EX_EXTRA|EX_DFLALL|EX_NEEDARG|EX_SBOXOK|EX_CMDWIN|EX_LOCK_OK,
+       EX_RANGE|EX_EXTRA|EX_DFLALL|EX_NEEDARG|EX_SBOXOK|EX_CMDWIN|EX_LOCK_OK|EX_RESTRICT,
        ADDR_LINES),
 EXCMD(CMD_perldo,      "perldo",       ex_perldo,
-       EX_RANGE|EX_EXTRA|EX_DFLALL|EX_NEEDARG|EX_CMDWIN|EX_LOCK_OK,
+       EX_RANGE|EX_EXTRA|EX_DFLALL|EX_NEEDARG|EX_CMDWIN|EX_LOCK_OK|EX_RESTRICT,
        ADDR_LINES),
 EXCMD(CMD_pedit,       "pedit",        ex_pedit,
        EX_BANG|EX_FILE1|EX_CMDARG|EX_ARGOPT|EX_TRLBAR,

diff --git a/src/version.c b/src/version.c
index 8c1f6c30a04f40c7ac60b03d8c1480d635b6e7a8..a3ef8c1c92e52974532b4832be13c1f3c26899e0 100644 (file)
--- a/src/version.c
+++ b/src/version.c
@@ -734,6 +734,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    141,
 /**/
     140,
 /**/