path: root/user/perl-file-finder/fix-test.patch

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');
 }