diff options
Diffstat (limited to 'contrib/perl')
| -rw-r--r-- | contrib/perl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/perl b/contrib/perl index 7169add7..af85d8f6 100644 --- a/contrib/perl +++ b/contrib/perl @@ -77,14 +77,14 @@ _perldoc() shift splice unshift grep join map qw reverse sort unpack \ delete each exists keys values binmode close closedir \ dbmclose dbmopen die eof fileno flock format getc print \ - printf read readdir rewinddir seek seekdir select syscall \ + printf read readdir rewinddir say seek seekdir select syscall \ sysread sysseek syswrite tell telldir truncate warn write \ pack read syscall sysread syswrite unpack vec -X chdir chmod \ chown chroot fcntl glob ioctl link lstat mkdir open opendir \ readlink rename rmdir stat symlink umask unlink utime caller \ continue do dump eval exit goto last next redo return \ - sub wantarray caller import local my our package use defined \ - formline reset scalar undef \ + sub wantarray break caller import local my our state package \ + use defined formline reset scalar undef \ alarm exec fork getpgrp getppid getpriority kill pipe qx \ setpgrp setpriority sleep system times wait waitpid \ import no package require use bless dbmclose dbmopen package \ @@ -98,7 +98,7 @@ _perldoc() getnetbyaddr getnetbyname getnetent getprotobyname \ getprotobynumber getprotoent getservbyname getservbyport \ getservent sethostent setnetent setprotoent setservent \ - gmtime localtime time times' -- "$cur" ) ) + gmtime localtime time times lock' -- "$cur" ) ) return 0 ;; esac |