Permalink
Browse files

Preserved old behavior

- fixed testing cleanup
  • Loading branch information...
worr committed Apr 19, 2011
1 parent 3dc9d2b commit 856a7ef95998c6d63b7a43ad78612ecf0a9fa94a
Showing with 3 additions and 2 deletions.
  1. +1 −1 lib/File/Copy.pm
  2. +2 −1 t/02-file-copy.t
View
@@ -2,7 +2,7 @@ use v6;
module File::Copy;
-sub cp(Str $from, Str $to, :$r!) is export {
+sub cp(Str $from, Str $to, :$r) is export {
if ($from.IO ~~ :d and $r) {
mkdir("$to") if $to.IO !~~ :d;
for dir($from) -> $item {
View
@@ -13,5 +13,6 @@ is dir('t/dir1'),
"recursive copy";
unlink 't/another.file';
my @filelist := find(dir => 't/dir2');
-for @filelist -> $file { unlink $file; }
+for @filelist.reverse -> $file { say $file; unlink $file; }
+unlink 't/dir2';
done;

0 comments on commit 856a7ef

Please sign in to comment.