From: Casey R. Tweten <crt@kiski.net>
Date: Wed, 13 Sep 2000 12:41:31 +0000 (-0400)
Subject: Allow chop() and chomp() to be overridden.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=79e5458b1cc92a7e7b0c9d5c559597a4fe49abc4;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/toke.c b/toke.c
index ddf052e..e5f737b 100644
--- a/toke.c
+++ b/toke.c
@@ -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;