diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-06-25 22:10:36 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2010-06-25 22:10:36 +1000 |
| commit | 1db4d19556a36b5a8e8604c1e7656999ebc7732b (patch) | |
| tree | 17c7bac46aea9938c486e71a821a6aae0fe2777d /perl_keyword.pl | |
| parent | 8af710ebc7fee929ae47793d5a0cce5362af52db (diff) | |
| download | perl-1db4d19556a36b5a8e8604c1e7656999ebc7732b.tar.gz | |
RT 75902: Add prototypes for tie() and untie() to allow overloading
Diffstat (limited to 'perl_keyword.pl')
| -rw-r--r-- | perl_keyword.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl_keyword.pl b/perl_keyword.pl index f53416cc50..73128c3b77 100644 --- a/perl_keyword.pl +++ b/perl_keyword.pl @@ -9,7 +9,7 @@ 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 say scalar sort - split state study sub tr tie tied use undef UNITCHECK until untie + split state study sub tr use undef UNITCHECK until unless when while y); my @neg = qw(__FILE__ __LINE__ __PACKAGE__ and abs alarm atan2 accept bless @@ -31,8 +31,9 @@ my @neg = qw(__FILE__ __LINE__ __PACKAGE__ and abs alarm atan2 accept bless setservent setpriority setprotoent shift shmctl shmget shmread shmwrite shutdown sin sleep socket socketpair sprintf splice sqrt srand stat substr system symlink syscall sysopen sysread sysseek - syswrite tell time times telldir truncate uc utime umask unpack - unlink unshift ucfirst values vec warn wait write waitpid wantarray + syswrite tell tie tied time times telldir truncate uc utime + umask unpack unlink unshift untie ucfirst values vec warn wait + write waitpid wantarray x xor); my %feature_kw = ( |