From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 15 Nov 2001 08:57:06 +0000 (+0000)
Subject: Re: [ID 20011114.118] chop and chomp bind too tightly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=313c9f5cdd9c2881025ae80733bae6b0f1cb11f9;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 174ff60..986c66e 100644
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -592,7 +592,7 @@ module:
 
 =item chomp VARIABLE
 
-=item chomp LIST
+=item chomp( LIST )
 
 =item chomp
 
@@ -626,7 +626,7 @@ characters removed is returned.
 
 =item chop VARIABLE
 
-=item chop LIST
+=item chop( LIST )
 
 =item chop
 
diff --git a/toke.c b/toke.c
index 1657f1e..64ef174 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;