[svn:parrot] r38245 - trunk/t/codingstd

[fperrad at svn.parrot.org]

Author: fperrad
Date: Tue Apr 21 13:24:55 2009
New Revision: 38245
URL: https://trac.parrot.org/parrot/changeset/38245

Log:
[t] fix this test on Windows 
previous r38236 was a bad idea (fperrad--)

Modified:
   trunk/t/codingstd/c_function_docs.t

Modified: trunk/t/codingstd/c_function_docs.t
==============================================================================
--- trunk/t/codingstd/c_function_docs.t	Tue Apr 21 13:12:15 2009	(r38244)
+++ trunk/t/codingstd/c_function_docs.t	Tue Apr 21 13:24:55 2009	(r38245)
@@ -33,12 +33,9 @@
 my $DIST = Parrot::Distribution->new;
 my $headerizer = Parrot::Headerizer->new;
 
-my $prefix_path = $PConfig{build_dir} . $PConfig{slash};
-$prefix_path =~ s/\\/\\\\/g; # escape \ when Windows path
-
 # can't handle .ops or .pmc files yet
 my @files = grep {/\.(c|h)$/ } @ARGV ? @ARGV :
-    map {s/^$prefix_path//; $_} map {$_->path} $DIST->get_c_language_files();
+    map {s/^$PConfig{build_dir}\///; $_} map {s/\\/\//g; $_} map {$_->path} $DIST->get_c_language_files();
 
 plan tests => scalar @files;