diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-25 18:12:35 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-25 23:02:10 -0700 |
| commit | 8af2014272725e01526eb3ee0e591a9460cc770f (patch) | |
| tree | 9bb3ec56b55df175f8616e380a6875ff1612a29c /t/op/coresubs.t | |
| parent | 9d3c658e5c246089e541ed0d652aaccf018f16e9 (diff) | |
| download | perl-8af2014272725e01526eb3ee0e591a9460cc770f.tar.gz | |
&CORE::getpgrp()
This commit allows &CORE::getpgrp to be called through references and
via ampersand syntax. pp_getpgrp is modified to take into account the
nulls pushed on to the stack in pp_coreargs, since pp_coreargs has no
other way to tell getpgrp how many arguments it’s actually getting.
Diffstat (limited to 't/op/coresubs.t')
| -rw-r--r-- | t/op/coresubs.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/op/coresubs.t b/t/op/coresubs.t index c0f59661ec..3339f4f410 100644 --- a/t/op/coresubs.t +++ b/t/op/coresubs.t @@ -358,7 +358,15 @@ test_proto 'getc'; test_proto "get$_" for qw ' grent grgid grnam hostbyaddr hostbyname hostent login netbyaddr netbyname - netent peername ppid priority protobyname protobynumber protoent + netent peername +'; + +test_proto 'getpgrp'; +eval {&mygetpgrp()}; +pass '&getpgrp with no args does not crash'; $tests++; + +test_proto "get$_" for qw ' + ppid priority protobyname protobynumber protoent pwent pwnam pwuid servbyname servbyport servent sockname sockopt '; |