1 package File::Spec::Cygwin;
4 use vars qw(@ISA $VERSION);
5 require File::Spec::Unix;
9 @ISA = qw(File::Spec::Unix);
13 File::Spec::Cygwin - methods for Cygwin file specs
17 require File::Spec::Cygwin; # Done internally by File::Spec if needed
21 See L<File::Spec> and L<File::Spec::Unix>. This package overrides the
22 implementation of these methods, not the semantics.
24 This module is still in beta. Cygwin-knowledgeable folks are invited
25 to offer patches and suggestions.
35 Any C<\> (backslashes) are converted to C</> (forward slashes),
36 and then File::Spec::Unix canonpath() is called on the result.
43 return $self->SUPER::canonpath($path);
49 # Don't create something that looks like a //network/path
50 if ($_[0] eq '/' or $_[0] eq '\\') {
52 return $self->SUPER::catdir('', @_);
55 $self->SUPER::catdir(@_);
60 =item file_name_is_absolute
62 True is returned if the file name begins with C<drive_letter:>,
63 and if not, File::Spec::Unix file_name_is_absolute() is called.
68 sub file_name_is_absolute {
69 my ($self,$file) = @_;
70 return 1 if $file =~ m{^([a-z]:)?[\\/]}is; # C:/test
71 return $self->SUPER::file_name_is_absolute($file);
74 =item tmpdir (override)
76 Returns a string representation of the first existing directory
77 from the following list:
83 Since Perl 5.8.0, if running under taint mode, and if the environment
84 variables are tainted, they are not used.
90 return $tmpdir if defined $tmpdir;
91 $tmpdir = $_[0]->_tmpdir( $ENV{TMPDIR}, "/tmp", 'C:/temp' );
98 Copyright (c) 2004 by the Perl 5 Porters. All rights reserved.
100 This program is free software; you can redistribute it and/or modify
101 it under the same terms as Perl itself.