diff -Naur vim72/runtime/syntax/perl.vim vim72-perl51.0-syntax/runtime/syntax/perl.vim --- vim72/runtime/syntax/perl.vim 2006-11-27 22:03:35.000000000 +0100 +++ vim72-perl51.0-syntax/runtime/syntax/perl.vim 2008-09-24 14:57:14.000000000 +0200 @@ -72,8 +72,11 @@ syn match perlConditional "\<elsif\>" syn match perlConditional "\<unless\>" syn match perlConditional "\<else\>" nextgroup=perlElseIfError skipwhite skipnl skipempty + syn match perlConditional "\<given\>" + syn match perlConditional "\<when\>" + syn match perlConditional "\<default\>" else - syn keyword perlConditional if elsif unless + syn keyword perlConditional if elsif unless given when default syn keyword perlConditional else nextgroup=perlElseIfError skipwhite skipnl skipempty endif syn keyword perlConditional switch eq ne gt lt ge le cmp not and or xor err @@ -84,18 +87,19 @@ syn match perlRepeat "\<do\>" syn match perlRepeat "\<until\>" syn match perlRepeat "\<continue\>" + syn match perlRepeat "\<break\>" else - syn keyword perlRepeat while for foreach do until continue + syn keyword perlRepeat while for foreach do until continue break endif syn keyword perlOperator defined undef and or not bless ref if exists("perl_fold") " if BEGIN/END would be a keyword the perlBEGINENDFold does not work - syn match perlControl "\<BEGIN\|CHECK\|INIT\|END\>" contained + syn match perlControl "\<BEGIN\|CHECK\|INIT\|END\|UNITCHECK\>" contained else - syn keyword perlControl BEGIN END CHECK INIT + syn keyword perlControl BEGIN END CHECK INIT UNITCHECK endif -syn keyword perlStatementStorage my local our +syn keyword perlStatementStorage my local our state syn keyword perlStatementControl goto return last next redo syn keyword perlStatementScalar chomp chop chr crypt index lc lcfirst length ord pack reverse rindex sprintf substr uc ucfirst syn keyword perlStatementRegexp pos quotemeta split study @@ -103,7 +107,7 @@ syn keyword perlStatementList splice unshift shift push pop split join reverse grep map sort unpack syn keyword perlStatementHash each exists keys values tie tied untie syn keyword perlStatementIOfunc carp confess croak dbmclose dbmopen die syscall -syn keyword perlStatementFiledesc binmode close closedir eof fileno getc lstat print printf readdir readline readpipe rewinddir select stat tell telldir write nextgroup=perlFiledescStatementNocomma skipwhite +syn keyword perlStatementFiledesc binmode close closedir eof fileno getc lstat print printf readdir readline readpipe rewinddir select stat tell telldir write nextgroup=perlFiledescStatementNocomma skipwhite say syn keyword perlStatementFiledesc fcntl flock ioctl open opendir read seek seekdir sysopen sysread sysseek syswrite truncate nextgroup=perlFiledescStatementComma skipwhite syn keyword perlStatementVector pack vec syn keyword perlStatementFiles chdir chmod chown chroot glob link mkdir readlink rename rmdir symlink umask unlink utime