t/TEST ./t/foo.t

[Tatsuhiko Miyagawa]

I guess this has once discussed, but my hand is accustomed to:

  perl -Mblib ./t/foo.t

So, what I want is './t/foo.t' instead of 't/foo.t'. Dirty patch:


--- Apache-Test/lib/Apache/TestRun.pm   2001/11/11 21:10:37     1.67
+++ Apache-Test/lib/Apache/TestRun.pm   2001/11/13 18:37:05
@@ -85,7 +85,7 @@
     for (@$argv) {
         my $arg = $_;
         #need the t/ for stat-ing, but dont want to include it in test output
-        $arg =~ s:^t/::;
+        $arg =~ [EMAIL PROTECTED](?:\./)?t/@@;
         my $t_dir = catfile qw(.. t);
         my $file = catfile $t_dir, $arg;


--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>