Source

perl-File-Find-Object-Rule / File-Find-Object-Rule / t / lib / File / Find / Object / TreeCreate.pm

Diff from to

File-Find-Object-Rule/t/lib/File/Find/Object/TreeCreate.pm

     {
         push @components, File::Spec->curdir();
     }
-    
+
     my $is_dir = ($path =~ s{/$}{});
     push @components, split(/\//, $path);
     if ($is_dir)
     my $self = shift;
     opendir my $dir, $self->get_path(@_) or
         return undef;
-    my @files = 
-        sort { $a cmp $b } 
+    my @files =
+        sort { $a cmp $b }
         grep { !(($_ eq ".") || ($_ eq "..")) }
         readdir($dir);
-    closedir($dir);    
+    closedir($dir);
     return \@files;
 }