Commit | Line | Data |
ecf68df6 |
1 | package File::Spec::Cygwin; |
2 | |
3 | use strict; |
4 | use vars qw(@ISA $VERSION); |
5 | require File::Spec::Unix; |
6 | |
7 | $VERSION = '1.0'; |
8 | |
9 | @ISA = qw(File::Spec::Unix); |
10 | |
11 | sub canonpath { |
12 | my($self,$path) = @_; |
13 | $path =~ s|\\|/|g; |
14 | return $self->SUPER::canonpath($path); |
15 | } |
16 | |
17 | 1; |
18 | __END__ |
19 | |
20 | =head1 NAME |
21 | |
22 | File::Spec::Cygwin - methods for Cygwin file specs |
23 | |
24 | =head1 SYNOPSIS |
25 | |
26 | require File::Spec::Cygwin; # Done internally by File::Spec if needed |
27 | |
28 | =head1 DESCRIPTION |
29 | |
30 | See File::Spec::Unix for a documentation of the methods provided |
31 | there. This package overrides the implementation of these methods, not |
32 | the semantics. |
33 | |
34 | This module is still in beta. Cygwin-knowledgeable folks are invited |
35 | to offer patches and suggestions. |