impermanence: remove trailing slashes in directories which cause an error

This commit is contained in:
Solene Rapenne 2022-03-15 13:41:16 +01:00
parent 07a96b2e71
commit 2bdb63cfff
1 changed files with 9 additions and 1 deletions

View File

@ -51,7 +51,15 @@ sub read_yml_file_to_struct {
sub remove_transclusion {
my $data = shift;
my @files = uniq @{$data->{"files"}};
my @directories = uniq @{$data->{"directories"}};
my @directories = @{$data->{"directories"}};
foreach (@directories) {
if( $_ =~ m|/$| ) {
saywarning("removing trailing slash in $_");
$_ =~ s|/$||;
}
}
@directories = uniq @directories;
for(my $i=0; $i <= $#directories; $i++) {
my $dir = $directories[$i];