C:\TMP\PATHTEST
|--bar
   |--baz

##</code><code>##

perl -e "use File::Copy::Recursive qw(pathrmdir); pathrmdir('pathtest',1); print qq(done\n);"

##</code><code>##

closedir() attempted on invalid dirhandle PTH_DH at c:\trunk\3pty\perl\lib/File/Copy/Recursive.pm line 318.
closedir() attempted on invalid dirhandle PTH_DH at c:\trunk\3pty\perl\lib/File/Copy/Recursive.pm line 318.
done