diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-05-24 22:46:16 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-06-07 08:18:52 -0700 |
| commit | 877e92d0ed656f4550e604d6c599c78ec1eb6765 (patch) | |
| tree | f2d45abc72fd9492e8e58ada82892bb1eaa2daed /util.c | |
| parent | b3c8159837b8c43db90210ef63a293dceebf2f32 (diff) | |
| download | perl-877e92d0ed656f4550e604d6c599c78ec1eb6765.tar.gz | |
util.c:report_evil_fh: Rmv redundant SvPOK
newSVhek (used to create this SV) always returns an SvPOK scalar.
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 ? " " : "", |