[libmodule-build-perl] 01/05: Revert "Sort file lists generated by rscan_dir()"

Niko Tyni ntyni at moszumanska.debian.org
Mon Sep 14 18:37:36 UTC 2015


This is an automated email from the git hooks/post-receive script.

ntyni pushed a commit to branch master
in repository libmodule-build-perl.

commit 45e72a7cce0d2d80ab66a8af986f08450a34c4f1
Author: Niko Tyni <ntyni at debian.org>
Date:   Mon Sep 14 19:43:57 2015 +0300

    Revert "Sort file lists generated by rscan_dir()"
    
    This reverts commit d28504672acb111f292f0f5dc662120a01d23df6.
    
    We broke the implicit guaranteed order from File::Find which
    lists regular files before directories.
    
    Closes: #798882
---
 lib/Module/Build/Base.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Module/Build/Base.pm b/lib/Module/Build/Base.pm
index b323a46..a6189a8 100644
--- a/lib/Module/Build/Base.pm
+++ b/lib/Module/Build/Base.pm
@@ -5255,7 +5255,7 @@ sub rscan_dir {
              die "Unknown pattern type";
 
   File::Find::find({wanted => $subr, no_chdir => 1}, $dir);
-  return [ sort @result ];
+  return \@result;
 }
 
 sub delete_filetree {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmodule-build-perl.git



More information about the Pkg-perl-cvs-commits mailing list