diff options
| author | Casey R. Tweten <crt@kiski.net> | 2000-09-13 08:41:31 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-14 14:23:30 +0000 |
| commit | 79e5458b1cc92a7e7b0c9d5c559597a4fe49abc4 (patch) | |
| tree | 266f5e632eba25f015ac413c109293cd3b933f81 /toke.c | |
| parent | f41820981f84708ef067a8bea41c79da755543c1 (diff) | |
| download | perl-79e5458b1cc92a7e7b0c9d5c559597a4fe49abc4.tar.gz | |
Allow chop() and chomp() to be overridden.
Subject: [PATCH] Re: [ID 20000911.006] I can override glob but not chop?
Message-ID: <Pine.OSF.4.21.0009131154120.6661-100000@home.kiski.net>
p4raw-id: //depot/perl@7071
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5092,12 +5092,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; |