From: Reini Urban <rurban@x-ray.at>
Date: Sun, 1 Jun 2008 14:51:59 +0000 (+0200)
Subject: Re: [perl #55160] perlbug AutoReply: Fix cygwin mount test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d685c22b7fe6ce5ea0bf3721b89b801e25222567;p=p5sagit%2Fp5-mst-13.2.git

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