From: George Necula <necula@eecs.berkeley.edu>
Date: Tue, 2 Apr 2002 10:22:41 +0000 (-0800)
Subject: RE: Sorry... (was: Re: Bug: cygwin Perl uses File/Spec/Unix.pm instead of File/Spec... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ed257421cb48481b2f56498bac8ee19f731a424;p=p5sagit%2Fp5-mst-13.2.git

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
---

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