my $pathname = $self->{'root'} . $DIR_SEP . $leaf;

##</code><code>##

my $pathname = catdir($self->{'root'}, $leaf);

##</code><code>##

return -e ($self-{'root'} .  $DIR_SEP . $leaf);