return @path;
}
+sub cwd {
+ require Cwd;
+ return Cwd::sys_cwd();
+}
+
=pod
=item tmpdir
# Figure out the effective $base and clean it up.
if ( !defined( $base ) || $base eq '' ) {
- require Cwd;
- $base = Cwd::sys_cwd() ;
+ $base = $self->cwd();
} elsif ( ! $self->file_name_is_absolute( $base ) ) {
$base = $self->rel2abs( $base ) ;
} else {
if ( ! $self->file_name_is_absolute( $path ) ) {
if ( !defined( $base ) || $base eq '' ) {
- require Cwd;
- $base = Cwd::sys_cwd() ;
+ $base = $self->cwd();
}
elsif ( ! $self->file_name_is_absolute( $base ) ) {
$base = $self->rel2abs( $base ) ;
if ( ! $self->file_name_is_absolute( $path ) ) {
# Figure out the effective $base and clean it up.
if ( !defined( $base ) || $base eq '' ) {
- require Cwd;
- $base = Cwd::cwd() ;
+ $base = $self->cwd();
}
elsif ( ! $self->file_name_is_absolute( $base ) ) {
$base = $self->rel2abs( $base ) ;
[ "Win32->canonpath('/a/b/c/../../d')", '\\a\\d' ],
[ "Win32->canonpath('/a/b/c/.../d')", '\\a\\d' ],
[ "Win32->canonpath('\\../temp\\')", '\\temp' ],
+[ "Win32->can('cwd')", qr/CODE/ ],
# FakeWin32 subclass (see below) just sets CWD to C:\one\two