diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-28 23:34:08 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-28 23:34:08 +0000 |
| commit | 2269b42e02cee8680b0b9ff4923a5a9c3f8df482 (patch) | |
| tree | a120bc23e88673c27b4b7b7ff9b979ab738fc7d0 /pp_hot.c | |
| parent | d32f2495b04e916e41d6514e2a6126c7223b49c9 (diff) | |
| download | perl-2269b42e02cee8680b0b9ff4923a5a9c3f8df482.tar.gz | |
Make some panic messages a bit more logical.
p4raw-id: //depot/perl@8244
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1184,7 +1184,7 @@ PP(pp_match) s = SvPV(TARG, len); strend = s + len; if (!s) - DIE(aTHX_ "panic: do_match"); + DIE(aTHX_ "panic: pp_match"); rxtainted = ((pm->op_pmdynflags & PMdf_TAINTED) || (PL_tainted && (pm->op_pmflags & PMf_RETAINT))); TAINT_NOT; @@ -1850,7 +1850,7 @@ PP(pp_subst) force_it: if (!pm || !s) - DIE(aTHX_ "panic: do_subst"); + DIE(aTHX_ "panic: pp_subst"); strend = s + len; maxiters = 2*(strend - s) + 10; /* We can match twice at each |