blob: 877328898ddeda0cac5d358fcd39720949f33864 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
package File::Spec::Cygwin;
use strict;
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
$VERSION = '1.0';
@ISA = qw(File::Spec::Unix);
sub canonpath {
my($self,$path) = @_;
$path =~ s|\\|/|g;
return $self->SUPER::canonpath($path);
}
sub file_name_is_absolute {
my ($self,$file) = @_;
return 1 if $file =~ m{^([a-z]:)?[\\/]}is; # C:/test
return $self->SUPER::file_name_is_absolute($file);
}
1;
__END__
=head1 NAME
File::Spec::Cygwin - methods for Cygwin file specs
=head1 SYNOPSIS
require File::Spec::Cygwin; # Done internally by File::Spec if needed
=head1 DESCRIPTION
See File::Spec::Unix for a documentation of the methods provided
there. 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.
|
