if ($depth == 0) {
    next if $_ ne '.'; # <-- line 116
    $_ = $directory;
}

##</code><code>##

if ($depth == 0) {
    next if $_ eq '.';
    $_ = $directory;
}