Missed a few lines. D'oh.
This commit is contained in:
parent
0ea9ef2244
commit
5b5858055a
1 changed files with 2 additions and 2 deletions
|
|
@ -275,7 +275,7 @@ sub recurseProperty {
|
||||||
$recurseFilter =~ tr/\r//d;
|
$recurseFilter =~ tr/\r//d;
|
||||||
$recurseFilter =~ s/\A\n*//; $recurseFilter =~ s/\n*\z//;
|
$recurseFilter =~ s/\A\n*//; $recurseFilter =~ s/\n*\z//;
|
||||||
$recurseFilter = (join '|', map{quotemeta} grep{/\S/} split /\n/, $recurseFilter);
|
$recurseFilter = (join '|', map{quotemeta} grep{/\S/} split /\n/, $recurseFilter);
|
||||||
$recurseFilter = length($recurseFilter)? qr/$recurseFilter/ : undef;
|
$recurseFilter = length($recurseFilter)? qr/(?i:$recurseFilter)/ : undef;
|
||||||
}
|
}
|
||||||
|
|
||||||
#Prevent infinite recursion
|
#Prevent infinite recursion
|
||||||
|
|
@ -302,7 +302,7 @@ sub recurseProperty {
|
||||||
$properties = $entry->get_value($recProperty,asref => 1);
|
$properties = $entry->get_value($recProperty,asref => 1);
|
||||||
}
|
}
|
||||||
foreach my $prop (@{$properties}) {
|
foreach my $prop (@{$properties}) {
|
||||||
next if $recurseFilter and $prop =~ m/$recurseFilter/i;
|
next if $recurseFilter and $prop =~ m/$recurseFilter/;
|
||||||
$self->recurseProperty($prop,$array,$property,$recProperty,$count,$recurseFilter,1);
|
$self->recurseProperty($prop,$array,$property,$recProperty,$count,$recurseFilter,1);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue