Document toke.c.

[p5sagit/p5-mst-13.2.git] / t / harness

diff --git a/t/harness b/t/harness
index c46a870..b89b35a 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -57,7 +57,7 @@ EOT
 @tests = grep (!$infinite{$_}, @tests);
 @tests = map {
          my $new = $_;
-        if ($datahandle{$_} && !( -f $new.t) ) {
+        if ($datahandle{$_} && !( -f "$new.t") ) {
              $new .= '.t';
              local(*F, *T);
              open(F,"<$_") or die "Can't open $_: $!";