diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-19 06:54:29 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-19 07:11:13 -0700 |
| commit | cc131e4093efdc1b0a2095af14f2e1f692f7ac2e (patch) | |
| tree | a3982a712b33d183ffab2d032c8d13597bc82589 | |
| parent | 447634a7648285ab3fed5505a901acd5ef93e548 (diff) | |
| download | perl-cc131e4093efdc1b0a2095af14f2e1f692f7ac2e.tar.gz | |
&CORE::pwent()
In commit 7fa5bd9b5, I forgot about pwent. All this commit has
to do is add it to the list of ‘ampable’ functions in gv.c. The
rest already works.
| -rw-r--r-- | gv.c | 3 | ||||
| -rw-r--r-- | t/op/coresubs.t | 2 |
2 files changed, 3 insertions, 2 deletions
@@ -1357,7 +1357,8 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, case KEY_endnetent: case KEY_endprotoent: case KEY_endpwent: case KEY_endservent: case KEY_getgrent: case KEY_gethostent: case KEY_getlogin: case KEY_getnetent: case KEY_getppid: - case KEY_getprotoent: case KEY_getservent: case KEY_setgrent: + case KEY_getprotoent: case KEY_getservent: case KEY_getpwent: + case KEY_setgrent: case KEY_setpwent: case KEY_time: case KEY_times: case KEY_wait: case KEY_wantarray: ampable = TRUE; diff --git a/t/op/coresubs.t b/t/op/coresubs.t index c7924aa199..0aa9c38ca9 100644 --- a/t/op/coresubs.t +++ b/t/op/coresubs.t @@ -72,7 +72,7 @@ test_proto $_ for qw( test_proto "get$_" for qw ' grent hostent login netent ppid protoent - servent + pwent servent '; test_proto "set$_" for qw ' |