fail case for ->parent

I believe that directly using File::Basename's "dirname" (which is core since perl 5.000) should fix this issue, even for Windows.