Change 33982 by [EMAIL PROTECTED] on 2008/06/01 19:38:24
Subject: Re: [perl #55160] perlbug AutoReply: Fix cygwin mount test
From: "Reini Urban" <[EMAIL PROTECTED]>
Date: Sun, 1 Jun 2008 14:51:59 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/lib/cygwin.t#8 edit
Differences ...
==== //depot/perl/t/lib/cygwin.t#8 (text) ====
Index: perl/t/lib/cygwin.t
--- perl/t/lib/cygwin.t#7~32006~ 2007-10-02 05:31:32.000000000 -0700
+++ perl/t/lib/cygwin.t 2008-06-01 12:38:24.000000000 -0700
@@ -43,7 +43,7 @@
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");
End of Patch.
