Really check that sysread(I, $x, 1, -4) dies with "Offset outside string"

[p5sagit/p5-mst-13.2.git] / t / op / reg_posixcc.t

diff --git a/t/op/reg_posixcc.t b/t/op/reg_posixcc.t
index f6391ef..df12063 100644 (file)
--- a/t/op/reg_posixcc.t
+++ b/t/op/reg_posixcc.t
@@ -3,11 +3,13 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    require './test.pl';
 }
 
 use strict;
 use warnings;
-use Test::More 'no_plan'; # otherwise it would 38401 tests, which is, uh, a lot. :-)
+plan "no_plan";
+
 my @pats=(
             "\\w",
            "\\W",
@@ -40,7 +42,7 @@ my @pats=(
            "[:blank:]",
            "[:^blank:]" );
 if (not $ENV{REAL_POSIX_CC}) {
-    $TODO = "Only works under PERL_LEGACY_UNICODE_CHARCLASS_MAPPINGS = 0";
+    $::TODO = "Only works under PERL_LEGACY_UNICODE_CHARCLASS_MAPPINGS = 0";
 }
 
 sub rangify {