diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-12-28 08:19:03 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-12-28 08:22:10 +0000 |
commit | 87563727c783b3ada5e8ad351d78411fa539328e (patch) | |
tree | d9177e93484c804804bad3d01dc0062ac5bbe829 /pp_sys.c | |
parent | c8834ab7edb2752b04c3eaf1825541bea43ab610 (diff) | |
download | perl-87563727c783b3ada5e8ad351d78411fa539328e.tar.gz |
Fix typo in warning code added to pp_sockpair in c289d2f7288798f8.
That should be gv2, not gv1. However, I believe that it's impossible to reach
the warning code, given the structure of the optree that the perl 5
implementation produces, as gv1 and gv2 will never be NULL, and GvIOn() will
always return non-NULL. (Or croak, but that won't return).
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2452,7 +2452,7 @@ PP(pp_sockpair) if (!gv1 || !io1) report_evil_fh(gv1, io1, PL_op->op_type); if (!gv2 || !io2) - report_evil_fh(gv1, io2, PL_op->op_type); + report_evil_fh(gv2, io2, PL_op->op_type); } if (io1 && IoIFP(io1)) do_close(gv1, FALSE); |