opendir my $dirh, $path || return FAILED;

##</code><code>##

opendir my $dirh, $path or return FAILED;

##</code><code>##

opendir(my $dirh, $path) || return FAILED;

##</code><code>##

t/1.t .. 1/3 readdir() attempted on invalid dirhandle  at /Users/ken/.cpan/build/File-DirWalk-0.3-mt7jiA/blib/lib/File/DirWalk.pm line 100.
closedir() attempted on invalid dirhandle  at /Users/ken/.cpan/build/File-DirWalk-0.3-mt7jiA/blib/lib/File/DirWalk.pm line 117.
t/1.t .. ok   
All tests successful.

##</code><code>##

$currdir = dir(split("/[\\\/]", $currdir));