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 /toke.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 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5330,12 +5330,12 @@ Perl_keyword(pTHX_ register char *d, I32 len) if (strEQ(d,"cos")) return -KEY_cos; break; case 4: - if (strEQ(d,"chop")) return KEY_chop; + if (strEQ(d,"chop")) return -KEY_chop; break; case 5: if (strEQ(d,"close")) return -KEY_close; if (strEQ(d,"chdir")) return -KEY_chdir; - if (strEQ(d,"chomp")) return KEY_chomp; + if (strEQ(d,"chomp")) return -KEY_chomp; if (strEQ(d,"chmod")) return -KEY_chmod; if (strEQ(d,"chown")) return -KEY_chown; if (strEQ(d,"crypt")) return -KEY_crypt; |