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

From: "Reini Urban" <rurban@x-ray.at>
Message-ID: <6910a60806010551u30199befr43761fe53d5d896@mail.gmail.com>

p4raw-id: //depot/perl@33982

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");