This is reading the first line of the test, not running it.

diff --git a/t/TEST b/t/TEST
index 6f23caf..d333c84 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -279,7 +279,7 @@ EOT
        # XXX DAPM %OVER not defined anywhere
        # $test = $OVER{$test} if exists $OVER{$test};
 
-       open(SCRIPT,"<",$test) or die "Can't run $test.\n";
+       open(SCRIPT,"<",$test) or die "Can't read $test.\n";
        $_ = <SCRIPT>;
        close(SCRIPT) unless ($type eq 'deparse');
        if ($::with_utf16) {