Tweak multi-arg open error messages

p4raw-id: //depot/perlio@13531

diff --git a/perlio.c b/perlio.c
index 0a43901..bdbde16 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -210,7 +210,7 @@ PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd,
 {
     if (narg) {
        if (narg > 1) {
-           Perl_croak(aTHX_ "More than one argument to '%s' open",mode);
+           Perl_croak(aTHX_ "More than one argument to open");
        }
        if (*args == &PL_sv_undef)
            return PerlIO_tmpfile();
@@ -1287,7 +1287,7 @@ PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd,
             * Found that layer 'n' can do opens - call it
             */
            if (narg > 1 && !(tab->kind & PERLIO_K_MULTIARG)) {
-               Perl_croak(aTHX_ "More than one argument to '%s' open",mode);
+               Perl_croak(aTHX_ "More than one argument to open(,':%s')",tab->name);
            }
            PerlIO_debug("openn(%s,'%s','%s',%d,%x,%o,%p,%d,%p)\n",
                         tab->name, layers, mode, fd, imode, perm, f, narg,