Make a test TODO
gfx [Fri, 25 Sep 2009 07:01:31 +0000 (16:01 +0900)]
t/019-handles.t

index 10acf1e..9208a3c 100644 (file)
@@ -120,7 +120,7 @@ is_deeply(
 
 
 {
-    local $TODO = "failed in 5.10.1, but I don't know why (gfx)" if $] == 5.010_001;
+    local $TODO = "failed on some environment, but I don't know why it happens (gfx)";
     throws_ok{
         $object->person(undef);
         $object->person_name();