diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-02 13:51:21 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-02 13:51:21 +0000 |
| commit | e3e804c95d90aee717e2c436ebefa57599e64a70 (patch) | |
| tree | ad2aabacd8dc6d630fefcd2d77b5b37a23d5c7ff /perl_keyword.pl | |
| parent | e3cbe32fd54913ec661efbd9621eea9e70c8ca47 (diff) | |
| download | perl-e3e804c95d90aee717e2c436ebefa57599e64a70.tar.gz | |
say() has the same syntax than print(), so forbid to override it
(like print())
p4raw-id: //depot/perl@29191
Diffstat (limited to 'perl_keyword.pl')
| -rw-r--r-- | perl_keyword.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl_keyword.pl b/perl_keyword.pl index 87332ee7e7..f71c7d035d 100644 --- 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 |