This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid warnings in pat_advanced.t in the logic for skipping a test.
authorNicholas Clark <nick@ccl4.org>
Sun, 20 Mar 2011 14:37:39 +0000 (14:37 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 20 Mar 2011 14:44:06 +0000 (14:44 +0000)
Also, change the skip added in 2feceb76bc07c897 to a todo skip.

t/re/pat_advanced.t

index ad0a6c6..b102188 100644 (file)
@@ -2112,9 +2112,9 @@ EOP
         ok(1, $message);  # If it didn't crash, it worked.
     }
 
-    SKIP: {   # Was looping
-        skip('Triggers thread clone SEGV. See #86550')
-         if $::running_as_thread;
+    TODO: {   # Was looping
+        todo_skip('Triggers thread clone SEGV. See #86550')
+         if $::running_as_thread && $::running_as_thread;
         watchdog(10);   # Use a bigger value for busy systems
         like("\x{00DF}", qr/[\x{1E9E}_]*/i, "\"\\x{00DF}\" =~ /[\\x{1E9E}_]*/i was looping");
     }