summaryrefslogtreecommitdiff
path: root/darcs-all
diff options
context:
space:
mode:
authorSimon Marlow <simonmar@microsoft.com>2008-01-09 16:27:32 +0000
committerSimon Marlow <simonmar@microsoft.com>2008-01-09 16:27:32 +0000
commit06726aa7c0710100f0aaf81dfd3ac900b8ece3ee (patch)
treed221617bced5dbcae626d1e80559bacd7869c0bf /darcs-all
parente5601110f37f48771b9e62296770a29e79d96e28 (diff)
downloadhaskell-06726aa7c0710100f0aaf81dfd3ac900b8ece3ee.tar.gz
Windows fix
Diffstat (limited to 'darcs-all')
-rw-r--r--darcs-all4
1 files changed, 3 insertions, 1 deletions
diff --git a/darcs-all b/darcs-all
index 046e589f5d..1cc2b24338 100644
--- a/darcs-all
+++ b/darcs-all
@@ -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";