diff options
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/makemeta | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Porting/makemeta b/Porting/makemeta index e0e1ef72ad..c81aec59d4 100644 --- a/Porting/makemeta +++ b/Porting/makemeta @@ -34,14 +34,17 @@ my %dirs; @files = map { " - $_" } grep { my $d = $_; + my $previous_d = ''; while(($d = dirname($d)) ne "."){ + last if $d eq $previous_d; # safety valve last if exists $dirs{$d}; + $previous_d = $d; } # if $d is "." it means we tried every parent dir of the file and none # of them were in the private list - $d eq "."; + $d eq "." || $d eq $previous_d; } sort { lc $a cmp lc $b } @files; |