summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorBram <perl-rt@wizbit.be>2008-05-16 21:14:11 -0700
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2008-05-18 07:55:44 +0000
commitb0fdf69ec50f40b936b80fb258d82bfc8e867346 (patch)
treeac83663eada93ec44019580cb6c2b0cac2bf9590 /op.c
parent5f1da31cc3010163aa29135d0c83706ab31118b8 (diff)
downloadperl-b0fdf69ec50f40b936b80fb258d82bfc8e867346.tar.gz
[perl #38955] exists(): error message on wrong argument type is incorrect (5.8.7 cygwin)
From: "Bram via RT" <perlbug-followup@perl.org> Message-ID: <rt-3.6.HEAD-11257-1211022849-1634.38955-15-0@perl.org> p4raw-id: //depot/perl@33849
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index dc58747223..c314cafb16 100644
--- a/op.c
+++ b/op.c
@@ -6556,7 +6556,7 @@ Perl_ck_exists(pTHX_ OP *o)
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);
}