Index: t/examples/library.t
===================================================================
--- t/examples/library.t	(revision 40067)
+++ t/examples/library.t	(working copy)
@@ -57,7 +57,7 @@
 
 SKIP:
 {
-    skip( 'no pcre-config', 1 ); # Original check for PCRE flawed (TT #406)
+    skip 'no pcre-config', 1 unless $PConfig{HAS_PCRE};
 
     my $pcre_fn  = File::Spec->catfile(qw( examples library pcre.pir ));
     my $test_out = `$PARROT $pcre_fn asdf as`;