From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 8 Dec 2001 13:48:21 +0000 (+0000)
Subject: Tweak multi-arg open error messages
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b8752bbc2322bc61780a9c481ee2e3d71ae93ea;p=p5sagit%2Fp5-mst-13.2.git

Tweak multi-arg open error messages

p4raw-id: //depot/perlio@13531
---

diff --git a/perlio.c b/perlio.c
index 0a43901..bdbde16 100644
--- 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,