Index: t/distro/file_metadata.t
===================================================================
--- t/distro/file_metadata.t	(revision 18926)
+++ t/distro/file_metadata.t	(working copy)
@@ -8,7 +8,7 @@
 
 use Test::More;
 use File::Basename qw( fileparse );
-use File::Spec::Functions qw( catfile );
+use File::Spec::Functions qw( catfile canonpath );
 use Parrot::Config;
 use Parrot::Revision;
 use ExtUtils::Manifest qw( maniread );
@@ -270,12 +270,10 @@
 
                 # This RE may be a little wonky.
                 if ( $result =~ m{(.*) - (.*)} ) {
-                    my ( $file, $attribute ) = ( $1, $2 );
+                    my $file = canonpath( $1 );
+                    my $attribute = $2;
 
-                    # file names are reported with backslashes on Windows,
-                    # but we want forward slashes
-                    $file =~ s!\\!/!g if $^O eq 'MSWin32';
-
+                    # add to the results hash
                     $results{$file} = $attribute;
                 }
             }