Windows fix

06726aa7 · Simon Marlow · e5601110 · 06726aa7
Commit 06726aa7 authored Jan 09, 2008 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

darcs-all darcs-all +3 -1

No files found.
--- 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";