package File
::Spec
::Cygwin
;
use vars
qw(@ISA $VERSION);
require File::Spec::Unix;
@ISA = qw(File::Spec::Unix);
File::Spec::Cygwin - methods for Cygwin file specs
require File::Spec::Cygwin; # Done internally by File::Spec if needed
See L<File::Spec> and L<File::Spec::Unix>. This package overrides the
implementation of these methods, not the semantics.
This module is still in beta. Cygwin-knowledgeable folks are invited
to offer patches and suggestions.
Any C<\> (backslashes) are converted to C</> (forward slashes),
and then File::Spec::Unix canonpath() is called on the result.
return $self->SUPER::canonpath
($path);
=item file_name_is_absolute
True is returned if the file name begins with C<drive_letter:>,
and if not, File::Spec::Unix file_name_is_absolute() is called.
sub file_name_is_absolute
{
return 1 if $file =~ m{^([a-z]:)?[\\/]}is; # C:/test
return $self->SUPER::file_name_is_absolute
($file);
Returns a string representation of the first existing directory
Since Perl 5.8.0, if running under taint mode, and if the environment
variables are tainted, they are not used.
return $tmpdir if defined $tmpdir;
$tmpdir = $_[0]->_tmpdir( $ENV{TMPDIR
}, "/tmp", 'C:/temp' );
Copyright (c) 2004 by the Perl 5 Porters. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.