Missed a few lines. D'oh.

This commit is contained in:
Drake 2006-10-11 19:00:50 +00:00
parent 0ea9ef2244
commit 5b5858055a

View file

@ -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);
} }
} }