say() has the same syntax than print(), so forbid to override it

(like print())

p4raw-id: //depot/perl@29191

diff --git a/perl_keyword.pl b/perl_keyword.pl
index 87332ee..f71c7d0 100644 (file)
--- a/perl_keyword.pl
+++ b/perl_keyword.pl
@@ -8,7 +8,7 @@ use warnings;
 my @pos = qw(__DATA__ __END__ AUTOLOAD BEGIN CHECK DESTROY default defined
            delete do END else eval elsif exists for format foreach given grep
            goto glob INIT if last local m my map next no our pos print printf
-           package prototype q qr qq qw qx redo return require s scalar sort
+           package prototype q qr qq qw qx redo return require s say scalar sort
            split state study sub tr tie tied use undef UNITCHECK until untie
            unless when while y);
 
@@ -26,7 +26,7 @@ my @neg = qw(__FILE__ __LINE__ __PACKAGE__ and abs alarm atan2 accept bless
            length listen lcfirst localtime mkdir msgctl msgget msgrcv msgsnd
            ne not or ord oct open opendir pop push pack pipe quotemeta ref
            read rand recv rmdir reset rename rindex reverse readdir readlink
-           readline readpipe rewinddir say seek send semop select semctl semget
+           readline readpipe rewinddir seek send semop select semctl semget
            setpgrp seekdir setpwent setgrent setnetent setsockopt sethostent
            setservent setpriority setprotoent shift shmctl shmget shmread
            shmwrite shutdown sin sleep socket socketpair sprintf splice sqrt

diff --git a/t/op/cproto.t b/t/op/cproto.t
index 89bd555..a4dd691 100644 (file)
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -187,7 +187,7 @@ rewinddir (*)
 rindex ($$;$)
 rmdir (_)
 s undef
-say (;*@)
+say undef
 scalar undef
 seek (*$$)
 seekdir (*$)

diff --git a/toke.c b/toke.c
index bc70534..4513c40 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -7393,7 +7393,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords)
             case 'a':
               if (name[2] == 'y')
               {                                   /* say        */
-                return (all_keywords || FEATURE_IS_ENABLED("say") ? -KEY_say : 0);
+                return (all_keywords || FEATURE_IS_ENABLED("say") ? KEY_say : 0);
               }
 
               goto unknown;