diff options
| author | George Necula <necula@eecs.berkeley.edu> | 2002-04-02 02:22:41 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-02 17:37:44 +0000 |
| commit | 3ed257421cb48481b2f56498bac8ee19f731a424 (patch) | |
| tree | b0603fd691f8cedbf8abad8145e0b56969ae29b4 /lib/File | |
| parent | dcdcee7df18984121c84a77b6cef551710b5b154 (diff) | |
| download | perl-3ed257421cb48481b2f56498bac8ee19f731a424.tar.gz | |
RE: Sorry... (was: Re: Bug: cygwin Perl uses File/Spec/Unix.pm instead of File/Spec/Win32.pm)
Message-ID: <4E06A937DADC3842ACE4D3A1096A9EAC038C6F@JANUS.eecs.berkeley.edu>
p4raw-id: //depot/perl@15685
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Spec/Cygwin.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/File/Spec/Cygwin.pm b/lib/File/Spec/Cygwin.pm index 23fed18f50..877328898d 100644 --- a/lib/File/Spec/Cygwin.pm +++ b/lib/File/Spec/Cygwin.pm @@ -14,6 +14,12 @@ sub canonpath { 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__ |