From 5e6396ae8c4307a3de4655988c007bee1e933079 Mon Sep 17 00:00:00 2001 From: Robin Barker Date: Tue, 29 Apr 2003 18:30:23 +0100 Subject: RE: perl@19333 Message-ID: <533D273D4014D411AB1D00062938C4D9040464F7@hotel.npl.co.uk> p4raw-id: //depot/perl@19373 --- pp_pack.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp_pack.c') diff --git a/pp_pack.c b/pp_pack.c index 5c05b7a660..8bcc5707f8 100644 --- a/pp_pack.c +++ b/pp_pack.c @@ -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" ); } -- cgit v1.2.1