New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Fix cygwin mount test #9361
Comments
From @rurbanThis is a bug report for perl from rurban@cpan.org, t/lib/cygwin.t check / for binmount fails if the mount has the flag exec This patch for 5.10 and blead fixes that. Inline Patchdiff -u perl-current/t/lib/cygwin.t.orig perl-current/t/lib/cygwin.t
--- perl-current/t/lib/cygwin.t.orig 2007-10-02 14:32:44.000000000 +0200
+++ perl-current/t/lib/cygwin.t 2008-06-01 14:33:55.156250000 +0200
@@ -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");
-----------------------------------------------------------------
---
This perlbug was built using Perl 5.11.0 - Sun Mar 2 15:14:10 GMT 2008 Site configuration information for perl 5.11.0: Configured by rurban at Sun Apr 13 19:53:41 WEDT 2008. Summary of my perl5 (revision 5 version 11 subversion 0 patch 33673) Locally applied patches: @INC for perl 5.11.0: Environment for perl 5.11.0: |
From @rurbanAttached patch fixes bug #55160 for 5.10 and blead |
From @rurbanpl-CYG19-cygmount.patchdifforig perl-current/t/lib/cygwin.t
diff -u perl-current/t/lib/cygwin.t.orig perl-current/t/lib/cygwin.t
--- perl-current/t/lib/cygwin.t.orig 2007-10-02 14:32:44.000000000 +0200
+++ perl-current/t/lib/cygwin.t 2008-06-01 14:33:55.156250000 +0200
@@ -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");
|
From @rgs2008/6/1 Reini Urban <rurban@x-ray.at>:
Thanks, applied as #33982. |
The RT System itself - Status changed from 'new' to 'open' |
@rgs - Status changed from 'open' to 'resolved' |
Migrated from rt.perl.org#55160 (status was 'resolved')
Searchable as RT55160$
The text was updated successfully, but these errors were encountered: