diff --git a/Info.pm b/Info.pm index 6ff0d8d8..f58c901d 100644 --- a/Info.pm +++ b/Info.pm @@ -2302,7 +2302,7 @@ sub _load_attr { my $vars = []; my $bulkwalk_no = $self->can('bulkwalk_no') ? $self->bulkwalk_no() : 0; - my $can_bulkwalk = $bulkwalk_no || $self->{BulkWalk} || 1; + my $can_bulkwalk = (!$bulkwalk_no || 0) && ($self->{BulkWalk} || 1); my $repeaters = $self->{BulkRepeaters} || $REPEATERS; my $bulkwalk = $can_bulkwalk && $ver != 1;