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).

diff --git a/pp_sys.c b/pp_sys.c
index 711f93a..b2076cc 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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);