diff options
author | Zefram <zefram@fysh.org> | 2012-02-17 21:24:13 +0000 |
---|---|---|
committer | Zefram <zefram@fysh.org> | 2012-02-17 21:26:08 +0000 |
commit | 1f28cbca6b01846f4a8465ca4aaa089461c0d7e0 (patch) | |
tree | faa296a13246f1a5d7800882d065eed2e46907ea /pp_sys.c | |
parent | a0ee90d6275e8e8ed2d2366771ed2111c3dc870d (diff) | |
download | perl-1f28cbca6b01846f4a8465ca4aaa089461c0d7e0.tar.gz |
prune faulty dead logic in pp_flock
pp_flock had code to implicitly use the "last read" I/O handle if invoked
with no arguments. Actually both of its arguments are mandatory, so this
could never be reached. It was presumably cargo-culted from another op
such as pp_tell.
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2341,7 +2341,7 @@ PP(pp_flock) dVAR; dSP; dTARGET; I32 value; const int argtype = POPi; - GV * const gv = (MAXARG == 0) ? PL_last_in_gv : MUTABLE_GV(POPs); + GV * const gv = MUTABLE_GV(POPs); IO *const io = GvIO(gv); PerlIO *const fp = io ? IoIFP(io) : NULL; |