Commit 06726aa7 authored by Simon Marlow's avatar Simon Marlow
Browse files

Windows fix

parent e5601110
......@@ -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";
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment