(Replaced by #4297.)

To: perl5-porters@perl.org
Subject: [PATCH av.c, perldiag.pod] Added field name to "No such array field"
Message-ID: <19991003131647.A2816@blackrider>

plus changed the error message to say "No such pseudo-hash field"
as discussed in the above mail message.

p4raw-id: //depot/cfgperl@4296

1 files changed, 3 insertions, 2 deletions

diff --git a/av.c b/av.c
index 7201b49d8f..6301043ac7 100644
--- a/av.c
+++ b/av.c
@@ -630,10 +630,11 @@ Perl_avhv_fetch_ent(pTHX_ AV *av, SV *keysv, I32 lval, U32 hash)
     SV **indsvp;
     HV *keys = avhv_keys(av);
     HE *he;
-    
+    STRLEN n_a;
+   
     he = hv_fetch_ent(keys, keysv, FALSE, hash);
     if (!he)
-        Perl_croak(aTHX_ "No such array field");
+        Perl_croak(aTHX_ "No such pseudo-hash field '%s'", SvPV(keysv,n_a));
     return av_fetch(av, avhv_index_sv(HeVAL(he)), lval);
 }