RE: Sorry... (was: Re: Bug: cygwin Perl uses File/Spec/Unix.pm instead of File/Spec...

Message-ID: <4E06A937DADC3842ACE4D3A1096A9EAC038C6F@JANUS.eecs.berkeley.edu>

p4raw-id: //depot/perl@15685

diff --git a/lib/File/Spec/Cygwin.pm b/lib/File/Spec/Cygwin.pm
index 23fed18..8773288 100644 (file)
--- 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__