In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/bb02b572f9a36976b622aca31b9f0f2bb2929e48?hp=80c72aa9ab6134a852bea9edb1282bafafbc671b>
- Log -----------------------------------------------------------------
commit bb02b572f9a36976b622aca31b9f0f2bb2929e48
Author: Zefram <zef...@fysh.org>
Date: Sun Nov 26 18:20:10 2017 +0000
expect -k to be overloadable on Win32
Since commit a6c31837e629c46be2f7496149b36a4b79f93484, the -k filetest
operator works more coherently on Win32, in that it now stats the
requested file and only returns a non-error false result for an extant
file. This makes it respect string overloading on its argument, which
was previously ignored. A test of string overloading for filetests
was expecting string overloading to be ignored for -k on Win32, and now
needs to have no such exception.
-----------------------------------------------------------------------
Summary of changes:
t/op/filetest.t | 16 ----------------
1 file changed, 16 deletions(-)
diff --git a/t/op/filetest.t b/t/op/filetest.t
index bd1d08c298..fe9724c59a 100644
--- a/t/op/filetest.t
+++ b/t/op/filetest.t
@@ -222,22 +222,6 @@ for my $op (split //, "rwxoRWXOezsfdlpSbctugkTMBAC") {
is( $rv, "-$op", "correct return value for overloaded
-$op");
my ($exp, $is) = (1, "is");
- if (
- (
- !$fcntl_not_available and
- (
- $op eq "u" and not eval { Fcntl::S_ISUID() } or
- $op eq "g" and not eval { Fcntl::S_ISGID() } or
- $op eq "k" and not eval { Fcntl::S_ISVTX() }
- )
- )
- ||
- # the Fcntl test is meaningless in miniperl and
- # S_ISVTX isn't available on Win32
- ( $^O eq 'MSWin32' && $op eq 'k' && is_miniperl )
- ) {
- ($exp, $is) = (0, "not");
- }
$over = 0;
$rv = eval "-$op \$str";
--
Perl5 Master Repository
