Author: particle
Date: Thu Mar 29 11:43:49 2007
New Revision: 17844
Modified:
trunk/t/codingstd/perlcritic.t
Log:
[codingstd]: fix portability problems with languages-dir skip code
Modified: trunk/t/codingstd/perlcritic.t
==============================================================================
--- trunk/t/codingstd/perlcritic.t (original)
+++ trunk/t/codingstd/perlcritic.t Thu Mar 29 11:43:49 2007
@@ -9,6 +9,7 @@
use Fatal qw(open);
use File::Find;
+use File::Spec;
use Test::More;
use Parrot::Config qw{%PConfig};
use Parrot::Distribution;
@@ -61,7 +62,8 @@
@files = map { $_->path } $DIST->get_perl_language_files();
# Skip any language files...
- @files = grep { !m{$PConfig{build_dir}/languages/} } @files;
+ my $languages_dir = File::Spec->catdir($PConfig{build_dir}, 'languages');
+ @files = grep { !m{\Q$languages_dir\E} } @files;
}
else {
