Skip Menu |
 

This queue is for tickets about the File-Spec CPAN distribution.

Report information
The Basics
Id: 6549
Status: new
Priority: 0/
Queue: File-Spec

People
Owner: Nobody in particular
Requestors:
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: (no value)
Fixed in: (no value)



Subject: missing functions dirname, basename
Download (untitled) / with headers
text/plain 338b
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 ] ); }
Download (untitled) / with headers
text/plain 428b
[guest - Tue Jun 8 13:19:28 2004]: Show quoted text
> 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 ] ); > }
So how about it? Please add


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.