summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-09-22 18:16:40 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-09-22 18:16:40 +0000
commitb6c835310a005ce2e1187890772df402e7333876 (patch)
treee4a1e14c83a3441601b144dd7ce63b05e1114372 /pp_hot.c
parentc38b2de23cd38f4082b61dab277e518dbd2807a0 (diff)
downloadperl-b6c835310a005ce2e1187890772df402e7333876.tar.gz
An error message need not be a novel.
p4raw-id: //depot/perl@21319
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 70d4e6dd56..7cbc00b22b 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1872,8 +1872,7 @@ PP(pp_iter)
}
if (sv && SvREFCNT(sv) == 0) {
*itersvp = Nullsv;
- Perl_croak(aTHX_
- "Use of freed value in iteration (perhaps you modified the iterated array within the loop?)");
+ Perl_croak(aTHX_ "Use of freed value in iteration");
}
if (sv)