diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-12-08 13:48:21 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-12-08 13:48:21 +0000 |
| commit | 3b8752bbc2322bc61780a9c481ee2e3d71ae93ea (patch) | |
| tree | 60009420ec5d69e748bb63369ed2f2cae48670f1 /perlio.c | |
| parent | 7cf31bebccd8b4045fd1d586b26bef41a901c2d0 (diff) | |
| download | perl-3b8752bbc2322bc61780a9c481ee2e3d71ae93ea.tar.gz | |
Tweak multi-arg open error messages
p4raw-id: //depot/perlio@13531
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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, |