This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Improve rcatline bad fh warnings
[perl5.git] / util.c
diff --git a/util.c b/util.c
index 55fc941..596955b 100644 (file)
--- a/util.c
+++ b/util.c
@@ -3403,7 +3403,8 @@ Perl_report_evil_fh(pTHX_ const GV *gv)
            (const char *)(OP_IS_FILETEST(op) ? "" : "()");
        const char * const func =
            (const char *)
-           (op == OP_READLINE   ? "readline"  :        /* "<HANDLE>" not nice */
+           (op == OP_READLINE || op == OP_RCATLINE
+                                ? "readline"  :        /* "<HANDLE>" not nice */
             op == OP_LEAVEWRITE ? "write" :            /* "write exit" not nice */
             PL_op_desc[op]);
        const char * const type =