util.c:report_wrongway_fh: Rmv redundant isGV check
authorFather Chrysostomos <sprout@cpan.org>
Fri, 25 May 2012 05:10:32 +0000 (22:10 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 7 Jun 2012 15:18:51 +0000 (08:18 -0700)
Checking isGV_with_GP makes the isGV check redundant.  The only case
in which isGV could be true when isGV_with_GP is false could be a GV
playing PVBM, but those don’t exist any more.  When they did exist,
this check was probably wrong (and crashable).

util.c

diff --git a/util.c b/util.c
index 9c9c072..acde398 100644 (file)
--- a/util.c
+++ b/util.c
@@ -3717,7 +3717,7 @@ Perl_report_wrongway_fh(pTHX_ const GV *gv, const char have)
 {
     if (ckWARN(WARN_IO)) {
         SV * const name
-           = gv && (isGV(gv) || isGV_with_GP(gv))
+           = gv && (isGV_with_GP(gv))
                 ? sv_2mortal(newSVhek(GvENAME_HEK((gv))))
                 : NULL;
        const char * const direction = have == '>' ? "out" : "in";