Change 13018 by jhi@alpha on 2001/11/15 13:22:57
Subject: Re: [ID 20011114.118] chop and chomp bind too tightly
From: [EMAIL PROTECTED] (Rafael Garcia-Suarez)
Date: 15 Nov 2001 08:57:06 -0000
Message-Id: <[EMAIL PROTECTED]>
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.)
Affected files ...
.... //depot/perl/pod/perlfunc.pod#271 edit
.... //depot/perl/toke.c#397 edit
Differences ...
==== //depot/perl/pod/perlfunc.pod#271 (text) ====
Index: perl/pod/perlfunc.pod
--- perl/pod/perlfunc.pod.~1~ Thu Nov 15 06:30:05 2001
+++ perl/pod/perlfunc.pod Thu Nov 15 06:30:05 2001
@@ -592,7 +592,7 @@
=item chomp VARIABLE
-=item chomp LIST
+=item chomp( LIST )
=item chomp
@@ -626,7 +626,7 @@
=item chop VARIABLE
-=item chop LIST
+=item chop( LIST )
=item chop
==== //depot/perl/toke.c#397 (text) ====
Index: perl/toke.c
--- perl/toke.c.~1~ Thu Nov 15 06:30:05 2001
+++ perl/toke.c Thu Nov 15 06:30:05 2001
@@ -5330,12 +5330,12 @@
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;
End of Patch.
