[lucy-commits] svn commit: r1076169 - /incubator/lucy/trunk/clownfish/t/403-file.t

[ma...@apache.org]

Author: marvin
Date: Wed Mar  2 11:13:56 2011
New Revision: 1076169

URL: http://svn.apache.org/viewvc?rev=1076169&view=rev
Log:
Fix OS check in a test file again to detect Windows reliably while still 
excluding darWIN.

Modified:
    incubator/lucy/trunk/clownfish/t/403-file.t

Modified: incubator/lucy/trunk/clownfish/t/403-file.t
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/clownfish/t/403-file.t?rev=1076169&r1=1076168&r2=1076169&view=diff
==============================================================================
--- incubator/lucy/trunk/clownfish/t/403-file.t (original)
+++ incubator/lucy/trunk/clownfish/t/403-file.t Wed Mar  2 11:13:56 2011
@@ -47,7 +47,7 @@ ok( !$file->get_modified, "modified fals
 $file->set_modified(1);
 ok( $file->get_modified, "set_modified, get_modified" );
 
-my $path_sep = $^O =~ /^win/i ? '\\' : '/';
+my $path_sep = $^O =~ /^mswin/i ? '\\' : '/';
 my $path_to_stuff_thing = join($path_sep, qw( path to Stuff Thing ) );
 is( $file->cfh_path('path/to'), "$path_to_stuff_thing.cfh", "cfh_path" );
 is( $file->c_path('path/to'),   "$path_to_stuff_thing.c",   "c_path" );