diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2001-11-15 08:57:06 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-15 13:22:57 +0000 |
| commit | 7cb98e1e2a12b3ac93b8bde6b0558db2b4eebf88 (patch) | |
| tree | 5bfce0c022618d04f8d4244834f13682725ae690 /toke.c | |
| parent | 0815b6e3b365be66c69bf3c5df3f276989179d1a (diff) | |
| download | perl-7cb98e1e2a12b3ac93b8bde6b0558db2b4eebf88.tar.gz | |
Re: [ID 20011114.118] chop and chomp bind too tightly
Message-Id: <slrn9v70s9.gqe.rgarciasuarez@rafael.kazibao.net>
chop() and chomp() are not real list functions,
so let's not have them overrideable. (Casey will
be confused since in #7071 he patched the other way.)
p4raw-id: //depot/perl@13018
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; |