In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/af25b33d388e2824ad52b31c8f5c7bc722f02dd6?hp=4cbaac5694a600478ba162129c6b3c038ab4b035>

- Log -----------------------------------------------------------------
commit af25b33d388e2824ad52b31c8f5c7bc722f02dd6
Author: H.Merijn Brand <[email protected]>
Date:   Fri Nov 11 16:23:05 2016 +0100

    De-dup the output of git ls-files
    
    Depending on the state of your git folder, some files can appear twice or
    more in the output of git ls-files
-----------------------------------------------------------------------

Summary of changes:
 t/porting/manifest.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/porting/manifest.t b/t/porting/manifest.t
index 580b487..b0dd440 100644
--- a/t/porting/manifest.t
+++ b/t/porting/manifest.t
@@ -85,7 +85,8 @@ SKIP: {
 
 SKIP: {
     find_git_or_skip(6);
-    chomp(my @repo= grep { !/\.gitignore$/ } `git ls-files`);
+    my %seen; # De-dup ls-files output (can appear more than once)
+    chomp(my @repo= grep { !/\.gitignore$/ && !$seen{$_}++ } `git ls-files`);
     skip("git ls-files didnt work",3)
         if !@repo;
     is( 0+@repo, 0+@files, "git ls-files gives the same number of files as 
MANIFEST lists");

--
Perl5 Master Repository

Reply via email to