From 313c9f5cdd9c2881025ae80733bae6b0f1cb11f9 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 15 Nov 2001 08:57:06 +0000 Subject: Re: [ID 20011114.118] chop and chomp bind too tightly Message-Id: 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 --- toke.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index 1657f1ec34..64ef174dc3 100644 --- a/toke.c +++ b/toke.c @@ -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; -- cgit v1.2.1