From 877e92d0ed656f4550e604d6c599c78ec1eb6765 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Thu, 24 May 2012 22:46:16 -0700 Subject: util.c:report_evil_fh: Rmv redundant SvPOK newSVhek (used to create this SV) always returns an SvPOK scalar. --- util.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'util.c') diff --git a/util.c b/util.c index ac7dfbc4b2..671d3b87e5 100644 --- a/util.c +++ b/util.c @@ -3764,7 +3764,7 @@ Perl_report_evil_fh(pTHX_ const GV *gv) (const char *) (OP_IS_SOCKET(op) || (io && IoTYPE(io) == IoTYPE_SOCKET) ? "socket" : "filehandle"); - const bool have_name = name && SvPOK(name) && *SvPV_nolen(name); + const bool have_name = name && *SvPV_nolen(name); Perl_warner(aTHX_ packWARN(warn_type), "%s%s on %s %s%s%"SVf, func, pars, vile, type, have_name ? " " : "", -- cgit v1.2.1