This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Simplify return handling for tied handle OPEN/PRINTF/READ/WRITE.
authorNicholas Clark <nick@ccl4.org>
Mon, 27 Dec 2010 19:11:26 +0000 (19:11 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 27 Dec 2010 19:11:26 +0000 (19:11 +0000)
commit5616b3e5c33b0e0c06d994847fac886994061215
tree198ab114f441659e6fe48487fd2ca19d9b0469d7
parent0a0e3cc51ec8fc6df32f39441333d8462b0fbd30
Simplify return handling for tied handle OPEN/PRINTF/READ/WRITE.

Their code used to explicitly move the return value from its current position
on the stack, to the position that was top of top of the stack just before the
call was made. However, the POPBLOCK() in pp_leavesub will restore the stack
pointer, and passing G_SCALAR to call_method() will force exactly one return
value, so all of this is needless defensiveness.
pp_sys.c