Re: [perl #24554] Segfault in POSIX module

[p5sagit/p5-mst-13.2.git] / ext / POSIX / t / is.t

diff --git a/ext/POSIX/t/is.t b/ext/POSIX/t/is.t
index 9ab851c..489b3a9 100644 (file)
--- a/ext/POSIX/t/is.t
+++ b/ext/POSIX/t/is.t
@@ -52,6 +52,10 @@ my %classes =
    " \t"       => [ qw(space) ],
 
    "abcde\001" => [],
+
+   # An empty string. Always true (al least in old days) [bug #24554]
+   ''     => [ qw(print graph alnum alpha lower upper digit xdigit
+                  punct cntrl space) ],
   );