From 7ef06fb2df2ce5dd1b074a9f23a4c53d42c3bcd3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ville=20Skytt=C3=A4?= Date: Wed, 17 Feb 2010 20:03:21 +0200 Subject: [PATCH] Add break, lock, say, and state to perldoc -f completions. --- contrib/perl | 8 ++++---- 1 file 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