Re: [perl #55160] perlbug AutoReply: Fix cygwin mount test

[p5sagit/p5-mst-13.2.git] / t / lib / cygwin.t

diff --git a/t/lib/cygwin.t b/t/lib/cygwin.t
index 096cb98..8f1410e 100644 (file)
--- a/t/lib/cygwin.t
+++ b/t/lib/cygwin.t
@@ -43,7 +43,7 @@ chdir($pwd);
 is(Cygwin::win_to_posix_path($winpath, 1), "/", "win to absolute posix path");
 
 my $mount = join '', `/usr/bin/mount`;
-$mount =~ m|on /usr/bin type .+ \((\w+mode)\)|m;
+$mount =~ m|on /usr/bin type .+ \((\w+mode)[,\)]|m;
 my $binmode = $1 eq 'binmode';
 is(Cygwin::is_binmount("/"),  $binmode ? 1 : '', "check / for binmount");