Change 33849 by [EMAIL PROTECTED] on 2008/05/18 07:55:44
Subject: [perl #38955] exists(): error message on wrong argument type
is incorrect (5.8.7 cygwin)
From: "Bram via RT" <[EMAIL PROTECTED]>
Date: Sat, 17 May 2008 04:14:11 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/op.c#1004 edit
... //depot/perl/pod/perldiag.pod#495 edit
Differences ...
==== //depot/perl/op.c#1004 (text) ====
Index: perl/op.c
--- perl/op.c#1003~33766~ 2008-04-30 01:17:51.000000000 -0700
+++ perl/op.c 2008-05-18 00:55:44.000000000 -0700
@@ -6556,7 +6556,7 @@
else if (kid->op_type == OP_AELEM)
o->op_flags |= OPf_SPECIAL;
else if (kid->op_type != OP_HELEM)
- Perl_croak(aTHX_ "%s argument is not a HASH or ARRAY element",
+ Perl_croak(aTHX_ "%s argument is not a HASH or ARRAY element or a
subroutine",
OP_DESC(o));
op_null(kid);
}
==== //depot/perl/pod/perldiag.pod#495 (text) ====
Index: perl/pod/perldiag.pod
--- perl/pod/perldiag.pod#494~32990~ 2008-01-17 06:23:48.000000000 -0800
+++ perl/pod/perldiag.pod 2008-05-18 00:55:44.000000000 -0700
@@ -131,7 +131,7 @@
(F) msgsnd() requires a string at least as long as sizeof(long).
-=item %s argument is not a HASH or ARRAY element
+=item %s argument is not a HASH or ARRAY element or a subroutine
(F) The argument to exists() must be a hash or array element or a
subroutine with an ampersand, such as:
End of Patch.
