diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2001-12-17 17:37:18 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-17 21:59:07 +0000 |
| commit | 77bc9082d5f32bccec35cc0887964884d1ca682b (patch) | |
| tree | 902ecf904b2c71662f51329fb39d3cc40d532d9a /pp.c | |
| parent | 74f3d116ec4be35200e42be295e61a420b376261 (diff) | |
| download | perl-77bc9082d5f32bccec35cc0887964884d1ca682b.tar.gz | |
[PATCH] Re: chomp/chop prototype changed?
Date: Mon, 17 Dec 2001 16:37:18 +0100
Message-ID: <20011217163718.A2292@rafael>
Subject: Re: [PATCH] Re: chomp/chop prototype changed?
From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
Date: Mon, 17 Dec 2001 23:17:06 +0100
Message-ID: <20011217231706.A730@rafael>
p4raw-id: //depot/perl@13747
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])) |