diff options
| -rw-r--r-- | av.c | 2 | ||||
| -rw-r--r-- | op.c | 2 | ||||
| -rw-r--r-- | pod/perldiag.pod | 6 |
3 files changed, 5 insertions, 5 deletions
@@ -634,7 +634,7 @@ Perl_avhv_fetch_ent(pTHX_ AV *av, SV *keysv, I32 lval, U32 hash) he = hv_fetch_ent(keys, keysv, FALSE, hash); if (!he) - Perl_croak(aTHX_ "No such pseudo-hash field '%s'", SvPV(keysv,n_a)); + Perl_croak(aTHX_ "No such pseudo-hash field \"%s\"", SvPV(keysv,n_a)); return av_fetch(av, avhv_index_sv(HeVAL(he)), lval); } @@ -6141,7 +6141,7 @@ Perl_peep(pTHX_ register OP *o) key = SvPV(*svp, keylen); indsvp = hv_fetch(GvHV(*fields), key, keylen, FALSE); if (!indsvp) { - Perl_croak(aTHX_ "No such field \"%s\" in variable %s of type %s", + Perl_croak(aTHX_ "No such pseudo-hash field \"%s\" in variable %s of type %s", key, SvPV(lexname, n_a), HvNAME(SvSTASH(lexname))); } ind = SvIV(*indsvp); diff --git a/pod/perldiag.pod b/pod/perldiag.pod index caf88861a0..b35d260eb2 100644 --- a/pod/perldiag.pod +++ b/pod/perldiag.pod @@ -1967,13 +1967,13 @@ your system. (F) The argument to B<-I> must follow the B<-I> immediately with no intervening space. -=item No such pseudo-hash field '%s' +=item No such pseudo-hash field "%s" -(F) You tried to access a pseudo-hash, but the field name used is +(F) You tried to access an array as a hash, but the field name used is not defined. The hash at index 0 should map all valid field names to array indices for that to work. -=item No such field "%s" in variable %s of type %s +=item No such pseudo-hash field "%s" in variable %s of type %s (F) You tried to access a field of a typed variable where the type does not know about the field name. The field names are looked up in |