| Subject: | missing functions dirname, basename |
File::Basename is a one-trick pony that needs to die :)
sub File::Spec::dirname {
my $self = shift;
return $self->catpath( ( $self->splitpath(shift) )[ 0, 1 ] );
}
# unlike File::Basename::basename, no suffixlist
sub File::Spec::basename {
my $self = shift;
return $self->catpath( ( $self->splitpath(shift) )[ -1 ] );
}