summaryrefslogblamecommitdiff
path: root/user/perl-file-finder/fix-test.patch
blob: 6c371f6fc1b4d9b98a59161a08616d4b38d960dc (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16














                                                                           
Thanks @smaeul

--- File-Finder-0.53/t/05-steps.t.old	2004-10-07 01:04:12.000000000 -0500
+++ File-Finder-0.53/t/05-steps.t	2018-10-02 22:27:29.867015209 -0500
@@ -51,9 +51,9 @@
 	  'mode 755');
 
 {
-  my $dirperm = (stat ".")[2] & 07777;
+  my $dirperm = (stat ".")[2] & 0777;
   is_deeply([File::Finder->perm($dirperm)->in(qw(.))],
-	    [fin(sub { ((stat($_))[2] & 07777) == $dirperm }, '.')],
+	    [fin(sub { ((stat($_))[2] & 0777) == $dirperm }, '.')],
 	    'mode same as current directory');
 }