push @dirs, '.' if ( $dirs[$#dirs] ne '.' );