This is reading the first line of the test, not running it.
authorMichael G. Schwern <schwern@pobox.com>
Mon, 2 Mar 2009 00:40:59 +0000 (16:40 -0800)
committerNicholas Clark <nick@ccl4.org>
Tue, 25 Aug 2009 17:17:00 +0000 (18:17 +0100)
t/TEST

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) {