Permalink
Browse files

better support for TAP::Harness::Remote by collecting test files as r…

…elative paths.
  • Loading branch information...
1 parent 2f16bd3 commit 670af86a4b3087ac2a09975fa84816bcd2155b01 @gugod gugod committed May 9, 2009
Showing with 5 additions and 2 deletions.
  1. +5 −2 lib/Test/Continuous.pm
View
@@ -29,13 +29,16 @@ my @files;
sub _files {
return @files if @files;
+ my $cwd = getcwd;
find sub {
my $filename = $File::Find::name;
-
return if ! -f $filename;
return unless $filename =~ /\.(p[lm]|t)$/;
+
+ $filename =~ s[^$cwd][];
+
push @files, $filename;
- }, getcwd;
+ }, $cwd;
return @files;
}

0 comments on commit 670af86

Please sign in to comment.