diff options
| -rw-r--r-- | gv.c | 1 | ||||
| -rw-r--r-- | t/op/coresubs.t | 2 |
2 files changed, 3 insertions, 0 deletions
@@ -1356,6 +1356,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, case KEY_continue: case KEY_endgrent: case KEY_endhostent: case KEY_endnetent: case KEY_endprotoent: case KEY_endpwent: case KEY_endservent: case KEY_getgrent: case KEY_gethostent: + case KEY_fork: case KEY_getlogin: case KEY_getnetent: case KEY_getppid: case KEY_getprotoent: case KEY_getservent: case KEY_getpwent: case KEY_setgrent: diff --git a/t/op/coresubs.t b/t/op/coresubs.t index 0aa9c38ca9..d1a2edc298 100644 --- a/t/op/coresubs.t +++ b/t/op/coresubs.t @@ -69,6 +69,8 @@ test_proto $_ for qw( endgrent endhostent endnetent endprotoent endpwent endservent ); +test_proto 'fork'; + test_proto "get$_" for qw ' grent hostent login netent ppid protoent |