diff -pru perl-5.8.7-min-patched/lib/Test/Harness/Point.pm perl-5.8.7-patched/lib/Test/Harness/Point.pm
--- perl-5.8.7-min-patched/lib/Test/Harness/Point.pm	Sun Apr 24 08:49:48 2005
+++ perl-5.8.7-patched/lib/Test/Harness/Point.pm	Mon Nov 27 20:59:08 2006
@@ -133,12 +133,12 @@ sub reason          { my $self = shift; 
 sub is_todo {
     my $self = shift;
     my $type = $self->directive_type;
-    return $type && ( $type eq 'todo' );
+    return $type && ( $type =~ /^todo\b/ );
 }
 sub is_skip {
     my $self = shift;
     my $type = $self->directive_type;
-    return $type && ( $type eq 'skip' );
+    return $type && ( $type =~ /^skip\w*\W?$/ ); # "skipped: reason"
 }
 
 sub diagnostics     {
