[perl #8262] //g loops infinitely on tainted data

[p5sagit/p5-mst-13.2.git] / keywords.pl

diff --git a/keywords.pl b/keywords.pl
index fe745d4..2f3a95a 100755 (executable)
--- a/keywords.pl
+++ b/keywords.pl
@@ -68,6 +68,7 @@ atan2
 bind
 binmode
 bless
+break
 caller
 chdir
 chmod
@@ -85,6 +86,7 @@ cos
 crypt
 dbmclose
 dbmopen
+default
 defined
 delete
 die
@@ -142,6 +144,7 @@ getservbyport
 getservent
 getsockname
 getsockopt
+given
 glob
 gmtime
 goto
@@ -219,6 +222,7 @@ rewinddir
 rindex
 rmdir
 s
+say
 scalar
 seek
 seekdir
@@ -289,6 +293,7 @@ wait
 waitpid
 wantarray
 warn
+when
 while
 write
 x