diff options
| author | Robin Barker <RMBarker@cpan.org> | 2003-04-29 18:30:23 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-01 11:09:42 +0000 |
| commit | 5e6396ae8c4307a3de4655988c007bee1e933079 (patch) | |
| tree | 98a2bdfad05a1b95c884f35cd1f4ce947af6e0d1 /pp_pack.c | |
| parent | 51dc4578288f8c29eb2ac4c48011b5b854d10317 (diff) | |
| download | perl-5e6396ae8c4307a3de4655988c007bee1e933079.tar.gz | |
RE: perl@19333
Message-ID: <533D273D4014D411AB1D00062938C4D9040464F7@hotel.npl.co.uk>
p4raw-id: //depot/perl@19373
Diffstat (limited to 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -418,7 +418,7 @@ S_next_symbol(pTHX_ register tempsym_t* symptr ) if (strchr(natstr, code)) code |= TYPE_IS_SHRIEKING; else - Perl_croak(aTHX_ "'!' allowed only after types %s in pack/unpack", + Perl_croak(aTHX_ "'!' allowed only after types %s in %s", natstr, symptr->flags & FLAG_PACK ? "pack" : "unpack" ); } |