revert to 5.8.x semantics for \s \w and \d

[perl5.git] / t / re / reg_posixcc.t

diff --git a/t/re/reg_posixcc.t b/t/re/reg_posixcc.t
index 8b25d7d..cd3890c 100644 (file)
--- a/t/re/reg_posixcc.t
+++ b/t/re/reg_posixcc.t
@@ -41,7 +41,7 @@ my @pats=(
            "[:^space:]",
            "[:blank:]",
            "[:^blank:]" );
-if ($ENV{PERL_TEST_LEGACY_POSIX_CC}) {
+if (1 or $ENV{PERL_TEST_LEGACY_POSIX_CC}) {
     $::TODO = "Only works under PERL_LEGACY_UNICODE_CHARCLASS_MAPPINGS = 0";
 }