dougm 01/11/13 13:05:44
Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm
Log:
treat 't/TEST ./t/foo.t' same as 't/TEST t/foo.t'
Submitted by: Tatsuhiko Miyagawa <miyagawa@edge.co.jp>
Reviewed by: dougm
Revision Changes Path
1.68 +1 -1 httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
Index: TestRun.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -r1.67 -r1.68
--- TestRun.pm 2001/11/11 21:10:37 1.67
+++ TestRun.pm 2001/11/13 21:05:44 1.68
@@ -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 =~ s@^(?:\./)?t/@@;
my $t_dir = catfile qw(.. t);
my $file = catfile $t_dir, $arg;
|