diff options
author | Simon Marlow <simonmar@microsoft.com> | 2008-01-09 16:27:32 +0000 |
---|---|---|
committer | Simon Marlow <simonmar@microsoft.com> | 2008-01-09 16:27:32 +0000 |
commit | 06726aa7c0710100f0aaf81dfd3ac900b8ece3ee (patch) | |
tree | d221617bced5dbcae626d1e80559bacd7869c0bf /darcs-all | |
parent | e5601110f37f48771b9e62296770a29e79d96e28 (diff) | |
download | haskell-06726aa7c0710100f0aaf81dfd3ac900b8ece3ee.tar.gz |
Windows fix
Diffstat (limited to 'darcs-all')
-rw-r--r-- | darcs-all | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -11,8 +11,10 @@ chomp $defaultrepo; my $defaultrepo_base; my $defaultrepo_lib; -if ($defaultrepo =~ /:/) { +if ($defaultrepo =~ /^...*:/) { # HTTP or SSH + # Above regex says "at least two chars before the :", to avoid + # catching Win32 drives ("C:\"). $defaultrepo_base = $defaultrepo; $defaultrepo_base =~ s#/[^/]+/?$##; $defaultrepo_lib = "$defaultrepo_base/packages"; |