diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-12-18 14:43:58 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-12-18 14:43:58 +0000 |
| commit | 7b5d8bbce1bc254559797266031a88531cfece6b (patch) | |
| tree | 499aba7e439f41ed3c81560919508efb404ade41 /pp.c | |
| parent | cddd4526476ba0ae3c81876684c5e7a648cb3265 (diff) | |
| parent | 8218ea5d24f5de0a37393f19671aa5631c088be7 (diff) | |
| download | perl-7b5d8bbce1bc254559797266031a88531cfece6b.tar.gz | |
Integrate mainline
p4raw-id: //depot/perlio@13756
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -15,6 +15,7 @@ #include "EXTERN.h" #define PERL_IN_PP_C #include "perl.h" +#include "keywords.h" /* variations on pp_null */ @@ -365,6 +366,8 @@ PP(pp_prototype) I32 oa; char str[ MAX_ARGS_OP * 2 + 2 ]; /* One ';', one '\0' */ + if (code == -KEY_chop || code == -KEY_chomp) + goto set; while (i < MAXO) { /* The slow way. */ if (strEQ(s + 6, PL_op_name[i]) || strEQ(s + 6, PL_op_desc[i])) |