This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tweak multi-arg open error messages
authorNick Ing-Simmons <nik@tiuk.ti.com>
Sat, 8 Dec 2001 13:48:21 +0000 (13:48 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Sat, 8 Dec 2001 13:48:21 +0000 (13:48 +0000)
p4raw-id: //depot/perlio@13531

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,