diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-03 21:46:02 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-03 21:46:02 +0000 |
| commit | 952306aca140c014b38ba5eb2ed71dffaa548f0f (patch) | |
| tree | 54c6ffddc042f5b62b93fed63bf59ac25dcd59d9 /perl_keyword.pl | |
| parent | d8c3cb99cb05a7cc157c615db679022cae30abb4 (diff) | |
| download | perl-952306aca140c014b38ba5eb2ed71dffaa548f0f.tar.gz | |
Introduce a new keyword, state, for state variables.
p4raw-id: //depot/perl@28086
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 5806728c30..636f6a9426 100644 --- a/perl_keyword.pl +++ b/perl_keyword.pl @@ -9,8 +9,8 @@ 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 - split study sub tr tie tied use undef until untie unless when while - y); + split state study sub tr tie tied use undef until untie unless when + while y); my @neg = qw(__FILE__ __LINE__ __PACKAGE__ and abs alarm atan2 accept bless break bind binmode CORE cmp chr cos chop close chdir chomp chmod |