implement chmod as a function

because a test file wants it that way :-). Run that test file
rakudo · May 14, 2012 · a144e29 · a144e29
1 parent aeca2f8
commit a144e29
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 1 deletion.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -398,3 +398,4 @@ sub copy(Cool $from as Str, Cool $to as Str) {
     }
 }
 
+sub chmod($mode, $filename) { $filename.IO.chmod($mode); $filename }
diff --git a/t/spectest.data b/t/spectest.data
@@ -501,6 +501,7 @@ S14-traits/attributes.t
 # S14-traits/package.t # err: Invalid typename in parameter declaration
 S14-traits/routines.t
 # S14-traits/variables.t # err: Invalid typename in parameter declaration
+S16-filehandles/chmod.t
 S16-filehandles/filestat.t
 S16-filehandles/filetest.t
 S16-filehandles/io_in_for_loops.t

diff --git a/tools/update_passing_test_data.pl b/tools/update_passing_test_data.pl
@@ -105,7 +105,6 @@ sub go {
     $all_passed  = 'A' if !       $agg->has_errors;
     printf "[%s%s%s] (% 3d/%-3d) %s\n", $some_passed, $plan_ok, $all_passed,
            $actually_passed, $planned, $orig
-                if $actually_passed || ($plan_ok && $planned > 0);
 }
 
 sub read_specfile {