diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-12 15:54:30 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-10-12 15:54:30 +0100 |
| commit | 5f5991a0d6d8ef99d2643b88a7d9285e35277331 (patch) | |
| tree | 8fe4d8e8aaa29715f258954d7045e927758b6b20 /pp_pack.c | |
| parent | 64332b6b34a2fb241657f12a8a3fe19b7a4d24dd (diff) | |
| download | perl-5f5991a0d6d8ef99d2643b88a7d9285e35277331.tar.gz | |
Normalise 3 fatal pack/unpack error messages to "panic: %s"
Diffstat (limited to 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2426,7 +2426,7 @@ marked_upgrade(pTHX_ SV *sv, tempsym_t *sym_ptr) { if (m != marks + sym_ptr->level+1) { Safefree(marks); Safefree(to_start); - Perl_croak(aTHX_ "Assertion: marks beyond string end"); + Perl_croak(aTHX_ "panic: marks beyond string end"); } for (group=sym_ptr; group; group = group->previous) group->strbeg = marks[group->level] - to_start; @@ -2760,7 +2760,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist ) GROWING(0, cat, start, cur, len); if (!uni_to_bytes(aTHX_ &aptr, end, cur, fromlen, datumtype | TYPE_IS_PACK)) - Perl_croak(aTHX_ "Perl bug: predicted utf8 length not available"); + Perl_croak(aTHX_ "panic: predicted utf8 length not available"); cur += fromlen; len -= fromlen; } else if (utf8) { @@ -3549,7 +3549,7 @@ extern const double _double_constants[]; 'u' | TYPE_IS_PACK)) { *cur = '\0'; SvCUR_set(cat, cur - start); - Perl_croak(aTHX_ "Assertion: string is shorter than advertised"); + Perl_croak(aTHX_ "panic: string is shorter than advertised"); } end = doencodes(hunk, buffer, todo); } else { |