diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-29 00:36:06 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-29 00:36:06 +0000 |
| commit | 585602face2fbfab449f8ea9c11aa2d71e51b267 (patch) | |
| tree | 9e988d8cf4de81c510faa2d36dec7dd1d1d503cf /toke.c | |
| parent | 355860cee8d59b8c0f2cb04b149d96a34a9015ff (diff) | |
| download | perl-585602face2fbfab449f8ea9c11aa2d71e51b267.tar.gz | |
Add a test for 20010528.007, fixed in #10272.
p4raw-id: //depot/perl@10273
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1635,7 +1635,7 @@ S_scan_const(pTHX_ char *start) *d = '\0'; SvCUR_set(sv, d - SvPVX(sv)); if (SvCUR(sv) >= SvLEN(sv)) - Perl_croak(aTHX_ "panic:constant overflowed allocated space"); + Perl_croak(aTHX_ "panic: constant overflowed allocated space"); SvPOK_on(sv); if (has_utf8) { |